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ÜBER DIESES BUCH 


Wollten Sie nicht schon lange wissen, wie ein Übersetzer für 
Programmiersprachen arbeitet? 

Oder vielleicht haben Sie sogar schon einmal mit dem 
Gedanken gespielt, einen Übersetzer für eine 
(selbstentwickelte?) Sprache zu schreiben? 

Es ist einfach faszinierend herauszufinden, wodurch 
Programme in die Lage versetzt werden, Programme aus 
irgendeiner Sprache in irgendeine andere zu Übersetzen! 

Dieses Buch zeigt nun an einer speziell für diesen Zweck 
entwickelten Sprache auf, wie Rechner in die Lage versetzt 
werden, ein für sie zunächst unverständliches Programm in 
eines umzuwandeln, welches sie ausführen können. Dazu werden 
die benötigten Verfahren beschrieben und die Umsetzung in 
ein Basic-Programm vollzogen. Sie haben somit einen 
vollständigen Übersetzer für die in diesem Buch beschriebene 
Sprache, den Sie studieren können, den Sie aber auch nach 
Belieben verändern können, um z.B. die beschriebene Sprache 
zu erweitern. 

Sie können aber auch diesen Übersetzer als Vorlage benutzen, 
um einen Übersetzer für die Sprache Ihrer Wahl zu schreiben. 
Vielleicht möchten Sie Ihren Rechner für einen bestimmten 
Zweck einsetzen, aber Sie haben für diesen Zweck noch nicht 
die richtige Sprache gefunden. Dann entwickeln Sie sich doch 
eine Sprache, die Ihren Problemen angepaßt ist und schreiben 
sich den passenden Übersetzer dazu! 

Dieses Buch wendet sich jedoch nicht nur an diejenigen, die 
Compiler verstehen oder schreiben möchten, sondern auch an 
diejenigen, die mehr darüber wissen möchten, wie ihr Rechner 
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arbeitet. Hierzu möchte ich auf das Kapitel über das 
Betriebssystem verweisen. 

Sie können aber auch in die Programmierung in Assembler 
(Maschinensprache) einsteigen, denn in diesem Buch sind ein 
kompletter Assembler und ein Disassembler beschrieben und 
aufgelistet. Eine Einführung in einige Maschinenbefehle des 
6510, die wir zum Übersetzen benötigen, finden Sie 
ebenfalls. 

Sie erhalten so die Grundlage, mit denen Sie sich ein 
vertieftes Verständnis von Programmiersprachen und Rechnern 
erarbeiten können. 
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HAS IST EIN COMPILER? 


HARUM GIBT ES COMPILER? 


Die "Herzen" der heutigen Rechner sind Mikroprozessoren. Die 
Mikroprozessoren können jedoch nur Programme ausführen, die 
in ihrer "Maschinensprache" geschrieben sind. Nun werden Sie 
vielleicht einwenden, daß Ihr Computer aber auch die 
Programmiersprache Basic versteht. Aber dieser Widerspruch 
ist nur scheinbar! Ihr Rechner versteht nur deshalb Basic, 
weil er ein Programm in Maschinensprache gespeichert hat, 
das es ihm gestattet, Basic-Befehle zu erkennen und 
auszuführen. Wenn Sie also ein Basic-Programm laufen lassen, 
so führt Ihr Rechner in Wirklichkeit ein Maschinenprogramm 
aus, das die Anweisungen Ihres Basic-Programmes 
interpretiert, d.h. ihre Bedeutung erfaßt und entsprechende 
Aktionen auslöst. Eine recht aufwendige und vor allen Dingen 
zeitverschlingende Art der Programmausführung. Es stellt 
sich die Frage, wieso man dann nicht einfach in 
Maschinensprache programmiert? 

Nun, Maschinensprache ist für den menschlichen Geist eine 
sehr unzugängliche Art der Programmierung. 
Maschinenprogramme werden als Folge von Dual- oder 
Hexadezimal- oder Dezimalzahlen aufgeschrieben. Diese Folge 
von Zahlen ist das getreue Abbild des Programmes, so wie es 
der Mikroprozessor im Speicher des Rechners vorfindet. 

Beispiel: 

Was, glauben Sie, macht Ihr Commodore-Rechner, wenn er auf 
folgendes Maschinenprogramm stößt? : 
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Das Maschinenprogramm in dezimaler Schreibweise: 

169 65 32 210 255 

Das Maschinenprogramm in hexadezimaler Schreibweise: 

A2 41 20 02 FF 

Das Maschinenprogramm in binärer Schreibweise: 

10101001 01000001 00100000 11010010 11111111 

Wüßte ich es nicht, es würde mir schwer fallen, hieraus zu 
erkennen, daß der Buchstabe A auf dem Bildschirm angegeben 
werden soll. 

Der Basic-Befehl :'print "A";' ist da schon sehr viel 
zugänglicher für menschliche Denkweisen. Allerdings, um das 
zu 'print "A";' gehörige Maschinenprogramm zu starten, 
benötigt der Basic-Interpreter ein Maschinenprogramm, das 

einige hundertmal so lang ist bzw. der Mikroprozessor 
verbringt eine ganze Weile damit zu erkennen, was zu tun 
ist, bevor er es tun kann. Nicht selten benötigt das 
Erkennen eines Befehls mehr Zeit als dessen Ausführung. Ganz 
verrückt wird die Sache, wenn der Basic-Befehl 'print "A";' 
tausendmal hintereinander ausgeführt werden soll. Der Befehl 
muß dann tausendmal hintereinander erkannt werden, was 
sicherlich nicht sehr effektiv ist, aber mit einem 

Interpreter nicht anders möglich ist. 

Hier steht jetzt folgende Überlegung an: 

Nehmen wir doch das Programm, welches wir in einer höheren 
Programmiersprache (z.B. Basic) geschrieben haben und 
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wandeln es einmal in ein Maschinenprogramm um. Dann haben 
wir ein Programm, das wir bequem schreiben können und das 
trotzdem schnell abgearbeitet werden kann, weil das dauernde 
Erkennen der Befehle entfällt. 

Nun, das Ganze macht ein Compiler! 

Ein Compiler ist also nichts anderes als ein Programm, das 
eine bestimmte Aufgabe hat. 

Es stellt sich nun zwangsläufig die Frage: In welcher 
Sprache schreiben wir unseren Compiler? 

Wehn wir ganz arm dran wären, säßen wir auf einer Insel mit 
einem Rechner, bei dem aus einem unerklärlichen Grunde der 
Baustein defekt ist, der den Basic-Interpreter enthält. Dann 
hätten wir keine andere Wahl: Wir müßten unseren Compiler in 
Maschinensprache schreiben. 

Doch bin ich mir recht sicher, daß wir nach kurzer Zeit 
überlegen würden, ob wir nicht wenigstens die 
Maschinensprache ein wenig lesbarer machen könnten. Denn der 
Mikroprozessor führt gewisse Aktionen aus, und die könnten 
wir auch anders aufschreiben. 

Betrachten wir doch unser Beispiel von eben: 

Wir könnten dann schreiben: 

169 + 65 heißt: Lade den Akkumulator 

direkt mit "A“. 

32 + 210 + 255 heißt: Springe zu dem Unterprogramm, 

das ab Speicherstelle 
65490 beginnt. 


oder abkürzend: 
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LDA # "A" 

JSR 65490 

Wir würden ’ uns dann daran machen, ein Maschinenprogramm zu 
schreiben, welches diese Kürzel in Maschinensprache 
übersetzen könnte. Sicher eine lohnende Arbeit, denn dann 
müßten wir uns nicht mehr mit den Zahlenreihen abplagen. 

Die Kürzel nennt man übrigens "Mnemonics" und ein Programm 
aus diesen Kürzeln ein "Assemblerprogramm" und ein Programm, 
das ein Assemblerprogramm in ein Maschinenprogramm umwandeln 
kann, "Assembler". Aber dazu später noch mehr. 

Nun, aber auch ein Übersetzer in Assembler ist noch ein 
recht undurchschaubares Objekt. Da wir lernen wollen, wie 
ein Compiler funktioniert und zudem keine defekten 
Basic-Bausteine besitzen, schreiben wir unseren Übersetzer 
in der komfortabelsten Sprache, die wir zur Verfügung haben, 
und das ist Basic! 
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SIND SIE AUFGEBAUT? 


wie wir schon wissen, hat ein Compiler die Aufgabe, ein 
Programm aus einer bestimmten Sprache in Maschinensprache 
umzuwandeln. 

Wir wollen uns einmal anschauen, welche Aufgaben im 
einzelnen dabei zu erledigen sind. Ich teile diese Aufgaben 
in vier verschiedene Bereiche ein: 

1) Die lexikalische Analyse. 

2) Die syntaktische Analyse. 

3) Die semantische Analyse. 

4) Die Codegenerierung. 

Wie man schon erkennen kann, geht man beim Compiler-Bau 
denselben Weg wie überall in der Programmierung, wenn man 
eine komplexe Aufgabe zu bewältigen hat. Man zergliedert die 
Aufgabe in viele kleine Teilaufgaben, die leichter zu 
übersehen und zu programmieren sind. Vielleicht verwundert 
es Sie, daß bei den Unterpunkten dreimal das Wort Analyse 
auftaucht, aber nur einmal das Wort Generierung (hiermit ist 
die Erzeugung des Maschinenprogramms bzw. Assemblerprogramms 
gemeint). Aufgabe der ersten drei Teile ist es, unser 
Programm auf Fehler hin zu untersuchen und die notwendigen 
Informationen zu gewinnen, die nötig sind, um das Maschinen- 
bzw. Assemblerprogramm erzeugen zu können. 


Zu Punkt 1): 

In der lexikalischen Analyse wird das zu übersetzende 
Programm in die kleinsten Sinnträger, die Worte, zerteilt. 
Dazu wird überprüft, ob die Worte auch innerhalb der Sprache 
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zulässige Worte sind. 


Dies soll am Beispiel eines Satzes aus der deutschen Sprache 
verdeutlicht werden: 

Der Elefant übt Sackhüpfen. 

In der lexikalischen Analyse würde dieser Satz wie folgt 
zerlegt: 

Der / Elefant / übt / Sackhüpfen / . 

Da jedes Wort ein gültiges deutsches Wort ist, wäre dieser 
Satz lexikalisch korrekt. 


Zu Punkt 2): 

Die syntaktische Analyse prüft, ob unser Satz gemäß der 
syntaktischen oder grammatischen Regeln ein korrekter Satz 
ist. 

Unser deutscher Satz ist dies zweifellos. Auf die 
Programmiersprache bezogen bedeutet dies nichts anderes als 
die Frage: Ist unser Programm korrekt aufgebaut? 

Ein Beispiel für ein syntaktisch korrektes Basic-Programm: 

10 for j = to 10 
20 for i = to 10 
30 print j,i 
40 next j 
50 next i 
60 end 


Dieses Programm ist zwar syntaktisch korrekt, aber ergibt es 


auch einen Sinn? 


Zu Punkt 3): 

Bei der semantischen Analyse des Basic-Programms würden wir 
nun feststellen, daß die Schleifen falsch geschaltet sind. 
Die Zeilen 40 und 50 müßten vertauscht werden, um ein 
lauffähiges Programm zu erhalten. 

Auch unser deutscher Satz ergibt keinen Sinn, denn Elefanten 
können nicht sackhüpfen. 


Zu Punkt 4): 

Bei der Codegenerierung wird nun - vorausgesetzt, unser 
Programm hat die vorausgehenden Prüfungen bestanden - das 
Programm in Maschinenspache übersetzt. Oft wird das Programm 
aber auch in einen sogenannten Zwischencode übersetzt. 
Diesen Zwischencode kann der Mikroprozessor nicht verstehen, 
aber man kann einen schnellen Interpreter konstruieren, der 
diesen Zwischencode interpretiert. 

Wir wollen aus unserem Programm erstmal ein 
Assemblerprogramm machen, das wir dann mit dem Assembler in 
Maschinensprache übersetzen können. Dies hat zwar den 
Nachteil, daß die Übersetzungszeit länger wird, hat aber 
besonders für einen Lern-Compiler entscheidende Vorteile: 

1) Wir können bequem verfolgen, in welche 
Maschinenbefehle unser Programm übersetzt wird. 

2) Die Codegenerierung wird um vieles durchsichtiger. 

Ihnen geht dabei jedoch keinerlei Erkenntnis verloren, denn 
wenn Sie verstehen, wie der beigefügte Assembler arbeitet, 
ist es für Sie sicherlich kein Problem, die Codegenerierung 
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so umzugestalten, daß direkt ein Maschinenprogramm erzeugt 
wird. 

Dies mag uns als Vorgeschmack auf die folgenden Kapitel erst 
einmal genügen. Aber ein grober Überblick verhindert oft, 
daß man "den Wald vor lauter Bäumen" nicht mehr sieht. 

Abschließend möchte ich noch bemerken, daß es natürlich 
beliebig viele verschiedene Arten gibt, einen Compiler zu 
schreiben, aber die grundsätzlichen Aufgaben sind immer 
dieselben, mögen sie auch sehr unterschiedlich in einem 
Compiler-Programm umgesetzt sein! 

Es gilt auch hier die Regel: Einmal etwas Grundsätzliches 
verstanden, gibt die Fähigkeit, es in seinen verschiedenen 
Erscheinungsformen zu erkennen. 
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UNSERE SPRACHE 


EIN ÜBERBLICK 


Ich möchte Ihnen in diesem Kapital einen kurzen Überblick 
über die Sprache geben, für die wir einen Compiler schreiben 
wollen. Da wir in der Wahl einer Sprache frei sind, habe ich 
einfach eine erfunden, die für unsere Zwecke gut geeignet 
ist. 

Es ist klar, daß wir für unsere Zwecke eine überschaubare 
Sprache brauchen, damit der Compiler handlich bleibt. Wir 
wollen aber der Tendenz innerhalb der 
Programmiersprachentwicklung folgen und eine 
blockstrukturierte Sprache wählen. Ich habe eine Auswahl von 
grundsätzlichen Möglichkeiten getroffen, die Sie in jeder 
modernen Programmiersprache finden. 

Unsere Sprache habe ich 'MINIATUR' getauft. Zum einen, weil 
sie die elementaren Möglichkeiten umfaßt, zum anderen, weil 
sie leicht erweiterbar ist, falls Sie dies wollen. 

Aber was kann denn nun MINIATUR? 

Ein MINIATUR-Programm besteht aus einem Hauptprogramm und, 
falls erwünscht, aus einer Reihe von Unterprogrammen. Um mit 
dem Rechner kommunizieren zu können, brauchen wir eine Ein- 
und Ausgabe von Daten, die Ausgabe von Texten und 
Steuerzeichen auf Bildschirm und Drucker. 

Um rechnen zu können, ist in MINIATUR eine 
Fließkommaarithmetik möglich, die Wertzuweisung und das 
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Errechnen von Werten elementarer Funktionen wie z.B. Sinus, 
Cosinus, Logarithmus usw. 

Den Programmablauf können wir mit Schleifen, Entscheidungen 
und Sprüngen steuern. 

Diese Möglichkeiten reichen aus, um die Arbeitsweise eines 
Compilers erläutern zu können. Die Sprache ist übrigens so 
aufgebaut, daß Sie sie ohne weiteres erweitern können. Wer 
z.B. die Fließkommaarithmetik verstanden hat, dem wird es 
ein leichtes sein, eine Ganzzahlarithmetik zu 
implementieren, da sie prinzipiell nichts 'Neues' erfordert. 

Aber schauen Sie sich die folgenden Kapitel in Ruhe an. Sie 
werden mir dann sicher zustimmen, daß man in MINIATUR schon 
ganz nette Programme schreiben kann! 
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DAS HAUPTPROGRAMM 


Programme in MINIATUR haben folgenden grundsätzlichen 
Aufbau: 

100 Programm anfang ist 
110 -- 

120 — Hier werden später die Variablen erklärt, 

130 -- mit denen unsere Programme arbeiten werden. 

140 — 

150 beginne 
160 -- 

170 -- Hier erscheinen später die ausführbaren 

180 -- Anweisungen unserer Programme 

190 -- 

200 leer. 

210 pende anfang. 

In MINIATUR ist dies das kleinste mögliche Programm. Es hat 
den Namen "anfang". Der Name erscheint am Anfang und am Ende 
des Programms. Unser Programm beginnt mit dem Schlüsselwort 
"Programm". 

Was sind Schlüsselwörter? 

Schlüsselwörter sind Worte, die innerhalb einer Sprache eine 
ganz besondere Rolle spielen und mit einer bestimmten 
Bedeutung belegt sind. Der Benutzer kann diese Bedeutung 
nicht verändern und darf diese Worte nur ihrer vereinbarten 
Bedeutung gemäß verwenden. Mit Hilfe der Schlüsselworte 
bauen wir das "Gerüst" unseres Programms und teilen es dem 
Übersetzer mit. "Programm" bedeutet hier, daß ein 
Hauptprogramm beginnt. Nach "Programm" kommt der Name des 
Programms, den wir frei wählen dürfen. Wir wollen Namen von 
Programmen "Programmbezeichner" nennen. 
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Was sind "Bezeichner" in MINIATUR? 


Bezeichner sind vom Benutzer frei wählbare Namen, die 
Objekte in MINIATUR benennen, z.B. Programme, 
Unterprogramme, Schleifen, Variablen usw . 

Bezeichner können höchstens eine Länge von 80 Zeichen haben 
und dürfen nur aus Buchstaben bestehen. 

Nach dem Namen folgt das Schlüsselwort "ist". Zwischen die 
Schlüsselwörter "ist" und "beginne" kommen später die 
Vereinbarungen über die Variablen, die wir in unserem 
Programm benutzen wollen. 

Kommentarzeilen wollen wir in MINIATUR durch zwei 
unmittelbar aufeinanderfolgende Minuszeichen kennzeichnen. 
Kommentare nehmen also eine ganze Zeile ein. 

Die Zeilen 110 - 140, 160 - 190, 210 sind somit 

Kommentarzeilen. 

Die Zeilennummern sollen in einem MINIATUR-Programm nur dazu 
dienen, daß wir uns als Benutzer im Programm besser 
zurechtfinden und wir Programme mit dem im CBM-64 
eingebauten Editor erstellen können. Ferner werden wir bei 
der Übersetzung auf die Zeilennummer zurückgreifen, um uns 
fehlerhafte Zeilen mit Nummer ausgeben zu lassen und um den 
Verlauf des Übersetzens besser verfolgen zu können. 

Um ein MINIATUR-Programm zu schreiben, wollen wir unseren 
Rechner auf Groß-Kleinschreibung umstellen. Schlüsselworte 
und Bezeichner wollen wir klein schreiben. 

Zwischen den Schlüsselwörtern "beginne" und "pende", (als 
Abkürzung für "Programm-Ende") schreiben wir später eine 
Folge von Anweisungen, die ausgeführt werden soll. Eine 
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Anweisungsfolge, die logisch zusammengehört, nennt man auch 
"Block". Ein Block soll aber mindestens eine Anweisung 
enthalten. Wenn wir jedoch noch nicht wissen, aus welcher 
Anweisungsfolge ein bestimmter Block bestehen soll, so 
setzen wir einfach eine Anweisung ein, die zwar formal eine 
Anweisung ist, deren Wirkung aber darin besteht, daß sie 
eben nichts bewirkt. Diese Anweisung soll in MINIATUR die 
Anweisung "leer." sein. 

In MINIATUR werden Anweisung, Programme und Unterprogramme 
durch einen Punkt abgeschlossen! 

Nach "pende" folgt noch einmal der Name des Programms und 
danach ein Punkt. 

Das Programm "anfang" genügt den Bedingungen, die wir an ein 
MINIATUR-Programm stellen. Es löst im Rechner keinerlei 
Aktionen aus, wenn wir es in Maschinensprache übersetzen 
würden. 

Wichtig zu erwähnen scheint mir noch einmal folgendes: 

Die Zeilennummern haben bei MINIATUR-Programmen keine 
Bedeutung. Wir hätten das Programm auch in folgender Form 
aufschreiben können: 

1 Programm anfang ist beginne leer, pende anfang. 

Diese Form ist sicherlich nicht sehr schön, da die Struktur 
des Programms nicht mehr sichtbar ist. Bemühen wir uns also, 
die Struktur eines Programms herauszuarbeiten, und geizen 
wir nicht mit Kommentaren! 
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AUSGABE VON TEXTEN 


Damit ein Programm uns seine Ergebnisse auf vernünftige 
Weise ausgeben kann, sind wir auf die Ausgabe von Texten 
angewiesen. 

Dazu haben wir in MINIATUR zwei Möglichkeiten; 

zeige "Zeichenkette'', 
zeigez "Zeichenkette". 

Unter einer Zeichenkette wollen wir eine Folge von Zeichen 
verstehen, die wir mit der Tastatur erzeugen können. Die 
Zeichenkette schließen wir in Anführungszeichen ein. Wollen 
wir die Anführungzeichen selbst angeben, so schauen Sie 
bitte im nächsten Kapitel nach. Abgeschlossen werden diese 
Befehle mit einem Punkt. Zu Anfang der Anweisung steht 
entweder das Schlüsselwort zeige oder zeigez. Bei beiden 
Befehlen wird die Zeichenkette ab der momentanen 
Curserposition ausgegeben. 

Bei Verwendung von zeige steht der Curser am Ende der 
Ausgabe auf dem nächsten Ausgabefeld, bei zeigez am Anfang 
der nächsten Ausgabezeile, d.h. es wird zusätzlich zur 
Zeichenkette ein Zeichenvorschub gesendet. Das 
voreingestellte Ausgabegerät ist der Bildschirm. Wie Sie 
Ausgaben auf den Drucker bringen, erfahren Sie im 
übernächsten Kapitel. 
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Hier nun ein Beispiel für die Textausgabe: 


Es sollen in einer Zeile "Beispiel fuer" und in der nächsten 
Zeile die beiden Zeichenketten "die Text" "ausgabe" 
unmittelbar hintereinander ausgegeben werden. 


100 Programm ausgabe ist 


110 

-- 


120 

— 


130 

beginne 


140 

-- 


150 

zeigez 

"Beispiel fuer" 

160 

zeige 

"die Text". 

170 

zeige 

"ausgabe". 

180 

-- 


190 

pende 

ausgabe. 
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AUSGABESTEUERUNG 


Nun möchte man aber gerne die Ausgabe noch weiter 
beeinflussen als wir es mit 'zeige' und 'zeigez' können, 
z.B. den Cursor an eine beliebige Stelle auf den Bildschirm 
setzen, den Bildschirm löschen und einen Zeilenabstand 
erzeugen. 

Einen Zeilenvorschub erreichen wir mit dem Befehl: 

Vorschub. 

Zeilenvorschub bedeutet, daß die Ausgabe in der aktuellen 
Zeile abgeschlossen wird. Haben Sie in der letzten Zeile 
eine Ausgabe mit 'zeige' gemacht, so wird mit 'Vorschub' auf 
die nächste Zeile umgeschaltet. Wurde die letzte Ausgabe mit 
'zeigez' gemacht, so entsteht eine Leerzeile. 

Den Bildschirm löschen wir mit dem Befehl: 


schirmfrei. 

Um den Cursor in eine bestimmte Spalte zu setzen, benutzen 
wir folgenden Befehl 

cuspalte Spalte. 

Mit 'Spalte' ist eine Ganzzahl zwischen 1 und 40 gemeint. 
Beispiel: Setzen wir den Cursor in Spalte 25. 

cuspalte 25. 
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Um mit dem Cursor in eine bestimmte Zeile zu gehen, geben 
wir folgenden Befehl: 

cuzeile Zeile. 

Mit 'Zeile' ist eine Ganzzahl zwischen 1 und 24 auszuwählen. 
Beispiel: Setzen des Cursors auf Zeile 15. 

cuzeile 15. 


Nun gibt es bei unserem Commodore-Rechner noch die 
Möglichkeit, mit Hilfe der Ausgabe von Steuercodes den 
Bildschirm zu steuern. Beispielsweise wandert der Cursor um 
eine Stelle nach rechts, wenn wir ein Zeichen, das dem 
ASCII-Code von 29 entspricht, an den Bildschirm senden. 
Einzelne Zeichen können wir mit folgendem Befehl senden: 

zeigeas ASCII-Code. 

Dabei darf ASCII-Code eine Zahl zwischen 0 und 255 sein. Die 
Bedeutungen der einzelnen Codes entnehmen Sie bitte dem 
Handbuch zu dem Rechner. Ich schreibe hier nur exemplarisch 
die wichtigsten auf. 


3 Stop 
10 line-feed 

17 Cursor-runter 

18 Revers ein 

19 Cursor-home 

20 Zeichen loeschen 
29 Cursor nach rechts 
32 Leerzeichen 

34 Anführungsstriche 

145 Cursor nach oben 

146 Revers aus 
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147 Schirm loeschen 

148 Zeichen einfügen 
157 Cursor nach links 

Ein Beispielprogramm: 

1000 Programm ausgabeb ist 
1010 -- 
1020 -- 

1030 -- Dieses Programm löscht der Bildschirm 
1040 -- setzt den Cursor in Zeile 5, Spalte 5 
1050 -- gibt in reverser Schrift den Satz 
1060 -- "Ausgabe auf Schirm" aus, erzeugt 
1070 -- 2 Leerzeilen und gibt diesen Satz 
1080 -- noch einmal normal aus. 

1090 -- 
1100 -- 
1110 beginne 
1120 -- 

1130 schirmfrei. 

1140 -- 

1150 cuzeile 5. cuspalte 5. 

1160 -- 

1170 zeigeas 18. 

1180 -- 

1190 zeige "Ausgabe auf Schirm". 

1200 — 

1210 zeigeas 146. 

1220 -- 

1230 Vorschub. Vorschub. Vorschub. 

1240 -- 

1250 zeigez "Ausgabe auf Schirm" 

1260 -- 
1270 -- 

1280 pende ausgabeb. 
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AUSGABE AUF DEN DRUCKER 


Um das Protokoll eines Programms auch fixieren zu können, 
gibt es die Möglichkeit, die Ausgabe statt auf den 
Bildschirm auf einen Drucker zu geben. 

Wir leiten alle Ausgaben auf ein anderes Gerät, darum lautet 
die Anweisung: 

ausgabegeraet drucker. 

Um die Ausgaben wieder auf den Bildschirm zu holen, sagen 
wir: 


ausgabegeraet schirm. 

So haben wir in einem Programm die Möglichkeit, den Drucker 
anzusteuern. 

Wir müssen nur darauf achten, nicht zweimal hintereinander 
das gleiche Ausgabegerät zu adressieren, da wir einen 
Datenkanal in dieser Form nur einmal eröffnen können. 
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Ein Beispiel: 

1000 Programm drucker ist 
1010 -- 
1020 — 

1030 -- Dieses Programm schreibt auf den Drucker 

1040 -- den Satz "Jetzt druckt der Druckerl" und 

1050 -- gibt dann den Satz "wieder auf 

1060 -- den Schirm!" auf dem Bildschirm aus. 

1070 -- 

1080 -- 
1090 beginne 
1100 — 

1110 ausgabegeraet drucker. 

1120 -- 

1130 zeigez "Jetzt druckt der Drucker!". 

1140 -- 

1150 ausgabegeraet schirm . 

1160 -- 
1170 -- 

1180 zeigez "Wieder auf den Schirm!". 

1190 -- 

1200 -- 

1210 pende drucker. 
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SETZEN DER BILDSCHIRMFARBEN 


Um die Bildschirmsteuerung komplett zu machen, haben wir die 
Möglichkeit, die Farbe des Rahmens, des Hintergrundes und 
der Schrift zu verändern. 

Ich zähle die Befehle mit den möglichen Farben einfach auf. 
Achten Sie bitte auf die Schreibweise der Farben. 

Wählen der Rahmenfarben: 


rahmen 

schwarz. 

rahmen 

weiss. 

rahmen 

tuerkis. 

rahmen 

rot. 

rahmen 

violett. 

rahmen 

gruen. 

rahmen 

blau. 

rahmen 

gelb. 

rahmen 

orange. 

rahmen 

braun. 

rahmen 

hellrot. 

rahmen 

graua. 

rahmen 

graub. 

rahmen 

graue. 

rahmen 

hellgruen. 

rahmen 

hellblaub. 


Wählen der Hintergrundfarbe 

hintergrund schwarz. 
hintergrund weiss. 
hintergrund rot. 
hintergrund tuerkis. 
hintergrund violett. 
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hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 

hintergrund 


gruen. 
blau. 
gelb. 
orange. 
braun. 
hellrot. 
graua. 
graub. 
graue. 
hellgruen. 
hellblau. 


Wählen der Schriftfarbe: 


Schrift 

schwarz 

Schrift 

weiss. 

Schrift 

rot. 

Schrift 

gruen. 

Schrift 

blau. 

Schrift 

purpur. 

Schrift 

gelb. 

Schrift 

cyan. 


Ein Beispielprogramm: 


100 Programm färbe ist 

110 -- 

120 

130 -- Dieses Programm setzt 

140 -- die Hintergrundfarbe auf schwarz, 

150 -- die Rahmenfarbe auf weiss und 

160 -- die Schriftfarbe auf weiss; 
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170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


— gibt in Zeile 12 ab Spalte 17 

— das Wort "Farbe" revers geschrieben 
-- aus und setzt die Hintergrundfarbe 

-- auf weiss und die Rahmenfarbe auf schwarz. 


beginne 

schirmfrei. 

hintergrund schwarz. 
rahmen weiss. 

Schrift weiss. 

cuzeile 12. cuspalte 17. 

zeigeas 18. zeigez "Farbe". zeigeas 146. 

hintergrund weiss. 
rahmen schwarz. 

pende färbe. 
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VEREINBARUNG VON VARIABLEN 


Wenn wir in einem Programm Variablen verwenden wollen, so 
müssen wir diese zu Anfang des Programms vereinbaren. 

In unserem Compiler wollen wir eine Fließkommaarithmetik 
implementieren und deshalb brauchen wir nur die Deklaration 
für diesen Typ. 

Fließkommavariablen können Werte im Bereich von 

+ - 1.70141183E+38 und 
+ - 2.93873588E-39 annehmen. 

Es gibt zwei Formen der Deklaration: 

1) Vereinbarung einer Fließkommavariablen: 

Fliess Variablenbezeichner. 

2) Vereinbarung von mehreren Fließkommavariablen: 

Fliess Variablenbezeichner, Variablenbezeichner,... . 
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Ein 

100 

110 

120 

130 

140 

150 

160 

170 

180 

198 

200 

210 

220 

230 

240 

250 


Beispielprogramm: 


Programm Vereinbarung ist 


-- Es sollen otto, enno, benno als 
-- Fließkommavariablen deklariert werden. 


fliess Otto, 
fliess enno, benno. 


beginne 

leer. 

pende Vereinbarung. 
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DATEN EIN- UND AUSGABE 


Nachdem wir nun wissen, wie wir Variablen vereinbaren 
können, ist der nächste Schritt die Ein- und Ausgabe der 
Werte der Variablen. 

Zur Ausgabe benutzen wir die uns schon bekannten Befehle 
zeige und zeigez. 

zeige Variablenbezeichner, 
zeigez Variablenbezeichner. 

Der Unterschied zwischen zeige und zeigez besteht wieder 
darin, daß bei zeigez die Ausgabe auf die nächste Zeile 
umgeschaltet wird. 

Zur Eingabe benutzen wir folgenden Befehl: 

hole Variablenbezeichner. 

Eingaben können von der Tastatur aus gemacht werden. Bei der 
Ausführung des Befehls 'hole' wird auf dem Bildschirm ein 
Fragezeichen sichtbar und es wird eine Fließkommazahl 
angefordert. Die Eingabe wird durch Betätigen der 
Return-Taste abgeschlossen. 

Ein Beispielprogramm: 

100 Programm ein ist 
110 -- 
120 -- 

130 -- Dieses Programm fordert Ihr Alter 

140 -- an und gibt es wieder aus. 

150 -- 
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160 

170 

180 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


fliess alter. 


beginne 

schirmfrei. 

zeige "Ihr Alter:", 
hole alter. Vorschub, 
zeige "Sie sind ". 
zeige alter, 
zeigez " Jahre alt". 

pende ein. 
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ZUWEISUNG VON WERTEN 


Wir können schon Variablen vereinbaren, ihnen von der 
Tastatur aus Werte zuweisen und ihre Werte ausgeben lassen. 
Es fehlt uns nun noch die Möglichkeit, die Werte innerhalb 
eines Programms unabhängig von einer Eingabe zu verändern. 

Wir wollen uns in diesem Bereich mit recht einfachen 
Konstruktionen zufrieden geben, die sich jedoch gut durch 
die Compilerprogramme hindurch verfolgen lassen. Einer 
Erweiterung steht nach dem Verstehen dieser Möglichkeiten 
sicher nichts im Wege. Deshalb wollen wir zuerst nur die 
Zuweisung von positiven Werten zulassen. 

Belegen einer Variablen mit einer Fließkommazahl: 

uebertrage Fließkommazahl nach Variablenbezeichner. 

Beispiel: 

uebertrage 3.4e+17 nach Otto. 

Nach der Ausführung dieses Befehls hat die Variable otto den 
Wert 3.4e + 17. 

Belegen einer Variablen mit dem Wert einer anderen 
Variablen: 

uebertrage Variablenbezeichner nach Variablenbezeichner. 
Beispiel: 

uebertrage otto nach enno. 
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Der Wert der Variablen enno entspricht nach diesem Befehl 
dem Wert der Variablen otto. 

Addition zweier Variablen: 

addiere Variablenbezeichner zu Variablenbezeichner nach 
Variablenbezeichner. 

Beispiel: 

addiere otto zu enno nach otto. 

Der neue Wert von otto ergibt sich aus dem alten Wert von 
Otto plus dem Wert von enno. 

Subtraktion einer Variablen von einer anderen: 

subtrahiere Variablenbezeichner von Variablenbezeichner nach 
Variablenbezeichner. 

Beispiel: 

subtrahiere otto von benno nach enno. 

Der Wert von enno gibt sich zu dem Wert von benno abzüglich 
des Wertes von otto. 

Multiplikation zweier Variablen: 

multipliziere Variablenbezeichner mit Variablenbezeichner 
nach Variablenbezeichner. 

Beispiel: 

multipliziere benno mit enno nach enno. 
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Der Wert von benno wird mit dem Wert von enno multipliziert 
und in enno abgelegt. 

Division von Variablen: 

dividiere Variablenbezeichner durch Variablenbezeichner nach 
Variablenbezeichner. 

Beispiel: 

dividiere otto durch benno nach enno. 

Der Wert von enno ergibt sich aus dem Wert von otto 
dividiert durch den Wert von benno. 


Potenzierung zweier Variablen: 

potenziere Variablenbezeichner mit Variablenbezeichner nach 
Variablenbezeichner. 

Beispiel: 

potenziere benno mit enno nach otto. 

Der Wert von otto ergibt sich zu dem Wert benno hoch enno. 

Ein Beispielprogramm: 

1000 Programm arithmetik ist 
1010 -- 
1020 -- 

1030 -- Dieses Programm demonstriert die 

1040 -- Fließkommaarithmetik. 

1050 -- 

1060 -- 
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1070 

1080 

1090 

1100 

1 1 10 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 


fliess monika, thomas, caecilia. 
fliess benno, enno, otto. 


beginne 


schirmfrei. Vorschub. 

zeigez "Demonstration der Fliesskommaarithmetik". 
Vorschub. 

uebertrage 2 nach monika. 
uebertrage 5 nach thomas. 
uebertrage thomas nach caecilia. 


zeige "monika = ". zeigez monika. 
zeige "thomas = ". zeigez thomas. 
zeige "caecilia = ". zeigez caecilia. 


addiere monika zu thomas nach benno. 
Vorschub. 

zeige "2 + 5 =". zeigez benno. 

subtrahiere caecilia von benno nach enno. 
zeige "7 - 2". zeigez enno. 

multipliziere thomas mit monika nach otto. 
zeige "5 x 2 =". zeigez otto. 

dividiere caecilia durch monika nach enno. 
zeige "5 / 2 =". zeigez enno. 

potenziere monika mit thomas nach benno. 
zeige "2 hoch 5 =". zeigez benno. 
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1430 -- 

1440 -- 

1450 pende arithmetik. 
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FUNKTIONEN 


In diesem Kapitel wollen wir die numerischen Funktionen 
kennenlernen, die wir implementieren wollen. 

Der allgemeine Befehlsaufbau lautet wie folgt: 

Bilde Funktionsbezeichner von Variablenbezeichner 
nach Variablenbezeichner. 

oder: 

Bilde Funktionsbezeichner von Variablenbezeichner. 

Der Unterschied zwischen den beiden Anweisungen besteht 
darin, daß im ersten Fall der errechnete Wert der Variablen 
zugeordnet wird, deren Name nach dem Schlüsselwort "nach" 
steht, im zweiten Fall jedoch der errechnete Wert der 
Variablen zugeordnet wird, von der der Funktionswert 
errechnet wurde. Siehe hierzu auch im Beispielprogramm. 

Im folgenden wird nach dem Wort Funktion jeweils der 
Funktionsbezeichner angegeben und im darauffolgenden 
Abschnitt die Funktion erläutert. Vielleicht schlagen Sie 
auch das Beispielsprogramm auf und lesen "parallel", dort 
ist für jede Funktion ein Beispiel zu finden. 

Funktion: absolut 

Der Absolutbetrag des Wertes wird gebildet. 

Funktion: actangens 

Der Arcustangens des Wertes wird errechnet. Der Wert ist im 
Bogenmaß anzugeben. 
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Funktion: cosinus 

Der Cosinus des angegebenen Wertes im Bogenmaß wird 
ausgerechnet. 

Funktion: exponent 

Der Wert e hoch Variable wird berechnet, wobei 
e = 2.71827183 ist. 

Funktion: integer 

Wenn wir eine Fließkommazahl in eine gerundete Ganzzahl 
umwandeln wollen, so benutzen wir diese Funktion. Z.B. ist 
Integer von 3.45 gleich 3 und Integer von - 4.6 gleich - 5. 

Funktion: logarithmus 

Von dem Wert der Variablen wird der natürliche Logarithmus 
zur Basis e genommen. 

Funktion: speicherwert 

In dieser Funktion gibt die Variable die Adresse einer 
Speicherstelle an und deren Wert wird ausgelesen. 

Funktion: zufall 

Mit dieser Funktion können Sie Zufallszahlen im Bereich 
zwischen 0 und 1 erzeugen. Die Zufallszahlen werden in 
Abhängigkeit vom Wert der Variablen gebildet. Ist der Wert 
der Variablen negativ, wo wird eine neue Zufallszahlenreihe 
initialisiert, d.h. bei einem immer gleichen negativen Wert 
werden die gleichen "Zufallszahlenreihen" erzeugt. Ist der 
Wert der Variablen größer oder gleich Null, so werden immer 
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neue Zahlen gebildet. 


Funktion: Vorzeichen 

Die Funktion "Vorzeichen" ergibt folgende Werte; 

-1 wenn der Wert der Variablen kleiner als Null ist. 

0 wenn der Wert der Variablen gleich Null ist. 

+1 wenn der Wert der Variablen größer als Null ist. 

Funktion: sinus 

"sinus" ergibt den Sinus des im Bogenmaß angegebenen 
Winkels. 

Funktion: quadratwurzel 

Die Quadratwurzel des Wertes wird errechnet. Der Wert muß 
positiv sein. 

Funktion: tangens 

Der Tangens des im Bogenmaß angegebenen Winkels ist das 
Ergebnis. 


Das Beispielprogramm: 


1000 Programm funktionen ist 
1010 -- 
1020 -- 

1030 Dieses Programm demonstriert die 

1040 -- Verwendung von Funktionen in 

1050 -- der Sprache Miniatur. 

1060 -- 
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1070 

1080 

1090 

1 110 

1120 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 


fliess a, b, c, d, e, f, g. 
fliess piviertel. 


beginne 

uebertrage 4 nach a. 
uebertrage 4 nach b. 
uebertrage 3.1415 nach c. 
dividiere c durch b nach piviertel. 

schirmfrei. 

zeigez “Demonstration der Funktionen“ 

Vorschub. 

bilde integer von c nach d. 

-- Die gerundete ganyyahl von c wurde 
-- berechnet und in d gespeichert. 

-- a wurde nicht verändert. 

zeige “ c = “. zeigez c. 
zeige “ d = “. zeigez d. 

bilde absolut von a. 

-- Bei dieser Form wird der 
-- Inhalt von a verändert. 

zeige “ absolute von 4 = “. zeigez a. 

bilde actangens von piviertel nach e. 
zeige “ actangens von piviertel = ". 

bilde Cosinus von piviertel nach e. 


zeigez e. 
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1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 


zeige " cosinus von piviertel = zeigez e. 

bilde exponent von b nach e. 
zeige "exponent von 4 =". zeigez e. 

bilde integer von piviertel nach e. 

zeige " integer von piviertel = zeigez e. 

bilde logarithmus von b nach e. 

zeige " logarithmus von 4 = ". zeige e. 

bilde speicherwert von b nach f. 

zeige " inhalt von speicherstelle 4 = ". zeigez f. 

bilde Zufall von a nach g. 

zeige " zufall von a = ". zeigez g. 

bilde Vorzeichen von b nach g. 

zeige " Vorzeichen von 4 = ". zeigez g. 

bilde sinus von piviertel nach f. 

zeige "sinus von piviertel = ". zeigez f. 

bilde quadratwurzel von b nach g. 

zeige " quadratwurzel von 4 =". zeigez g. 

bilde tangens von piviertel nach f. 

zeige "tangens von piviertel = ". zeigez f. 

zeigez "hat alles geklappt?". 


pende funktionen. 
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ENTSCHEIDUNGEN 


Bis jetzt kennen wir noch keine Möglichkeit, in unseren 
Programmen Anweisungen zu überspringen. Wir wollen jetzt 
kennenlernen, wie wir in Abhängigkeit vom Wert einer 
Variablen entscheiden können, welche Anweisungen ausgeführt 
werden sollen. Wir teilen dazu ein Programmstück in zwei 
Alternativen und verzweigen dann zu der einen oder andern 
Alternative, je nachdem, ob der Wert unserer Testvariablen 
eine bestimmte Bedingung erfüllt oder nicht. 

Formal sieht das zunächst so aus: 

wenn Bedingung 

dann 

Anweisungsblock 1 

sonst 


Anweisungsblock 2 

wende. 

Eine Bedingung ist wie folgt aufgebaut: 

Variablenbezeichner Operator Variablenbezeichner 
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Als Operatoren stehen zur Verfügung: 


Operator 

Bedeutung 

= 

gleich 

/ = 

ungleich 

< 

echt kleiner 

< = 

kleiner gleich 

> 

echt größer 

> = 

größer gleich 


Gleich ein Beispiel, um keine Unklarheiten aufkommen zu 
lassen: 

wenn otto = enno 
dann 

zeigez "otto ist gleich enno". 


sonst 


zeigez "otto ist nicht gleich enno". 

wende. 


In diesem Beispiel werden die Werte von otto und enno 
miteinander verglichen. Sind die Werte gleich, so erscheint 
auf dem Schirm die Zeile: "otto ist gleich enno". Sind die 
Werte nicht gleich, so erscheint die Zeile: "otto ist nicht 
gleich enno". Das Programm wird dann mit der Anweisung 
fortgesetzt, die nach dem Schlüsselwort "wende" steht. 

Die Anweisung "wenn dann sonst wende." kapselt so zwei 
Anweisungsblöcke. Jeder Block ist eine abgeschlossene Folge 
von Anweisunen. In MINIATUR muß jeder Block aus mindestens 
einer Anweisung bestehen. Jede Anweisung, die einen Block 
kapselt, hat genau einen "Eingang" und einen "Ausgang". In 
der "wenn dann sonst wende." Anweisung ist der Eingang 
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bei "wenn" und der Ausgang bei "wende". 


Ein Vorteil einer blockstrukturierten Sprache ist, daß man 
die Anweisungen, die logisch zusammengehören, schnell 
erkennen kann. 


An dieser Stelle sollen einige Bemerkungen zu den Beispiel- 
und Testprogrammen eingefügt werden. 

Da wir es uns zum Ziel gesetzt haben, einen Compiler zu 
verstehen bzw. zu schreiben, ist es für uns sehr wichtig, 
genügend Beispielprogramme zu haben, die die Möglichkeiten 
des Übersetzers systematisch durchgehen und an Hand dessen 
wir sehen können, was der Compiler bei einer bestimmten 
Eingabe macht. Die Beispielprogramme in diesem Buch sind 
somit gleichzeitig Testprogramme, die als erstes übersetzt 
werden sollten, wenn wir unseren Compiler entwickelt haben. 
Da es prinzipiell unendlich viele Programme gibt, die wir in 
MINIATUR schreiben können, ist es klar, daß wir nur die 
grundsätzlichen Möglichkeiten testen können. Es besteht dann 
berechtigte Hoffnung, daß der Compiler auch dann fehlerfrei 
arbeitet, wenn wir z.B. zwei Anweisungen miteinander 
vertauschen. Wie Sie vielleicht schon an den vorhergehenden 
Beispielen gemerkt haben, sollten die Testprogramme so 
geschrieben werden, daß Fehler bei der Ausführung 
offensichtlich werden. 

Hierzu ein Beispiel aus dem folgenden Programm: 

Das Programm soll entscheiden, ob eine eingegebene Zahl 
gerade oder ungerade ist. Danach soll entweder "Die Zahl ist 
gerade." oder "Die Zahl ist ungerade." ausgegeben werden. 

Eine gute Möglichkeit zu entscheiden, ob unser Programm 
korrekt übersetzt ist und fehlerfrei arbeitet, ist es. 
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jeweils den Satz und die Zahl auszugeben: 

zeige zahl, zeigez "Die Zahl ist gerade." 

oder 

zeige zahl, zeigez "Die Zahl ist ungerade 
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BEISPIELPROGRAMME: 


1000 Programm gerade ist 
1010 -- 
1020 -- 

1030 -- Dieses Programm fordert eine 

1040 -- Zahl von der Tastatur an und 

1050 -- entscheidet, ob diese Zahl gerade 

1060 -- oder ungerade ist. 

1070 -- 

1080 -- 

1090 fliess zahl, hilf, zwei, null, hilfv. 

1100 -- 
1110 beginne. 

1120 -- 

1130 schirmfrei. Vorschub, uebertrage 2 nach zwei. 
1140 -- 

1150 zeige "bitte eine positive ganze zahl eingeben 
1160 hole zahl. Vorschub. 

1170 -- 

1180 -- 

1190 uebertrage zahl nach hilf. 

1200 dividiere hilf durch zwei nach hilf. 

1210 bilde integer von hilf. 

1220 dividiere zahl durch zwei nach hilfv. 

1230 subtrahiere hilf von hilfv nach hilf. 

1240 -- 

1250 uebertrage 0.0 nach null. 

1260 -- 

1270 wenn hilf = null dann 
1280 -- 

1290 zeige zahl, zeigez "Dies ist eine gerade Zahl. 
1300 -- 

1310 sonst 


47 


1320 

1330 

1340 

1350 

1360 

1370 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1280 

1280 


zeige zahl, zeigez "Dies ist eine ungerade Zahl. 

wende. 

pende gerade. 


Programm wähl ist 


-- Dieses Programm gibt einen Satz in 
-- Abhängigkeit von einer Eingabe 
-- auf den Drucker oder Schirm. 


fliess test, eins, 
beginne 

schirmfrei. Vorschub. 

zeige "Ausgabe Drucker (1) / Schirm (2) ?". 
hole test. 

Vorschub. 

uebertrage 1.0 nach eins. 

wenn test = eins dann 

ausgabegeraet drucker. 

zeigez "Ausgabe auf den Drucker.". 

ausgabegeraet schirm. 

sonst 

zeigez "Ausgabe auf den Schirm.". 
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1290 

1300 

1310 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1 110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 


wende. 


pende wähl. 

Programm entscheidungstest ist 

-- Dieses Programm testet die 
-- verschiedenen Möglichkeiten, 
Entscheidungen zu treffen. 

fliess drei, vier, 
beginne 

schirmfrei. Vorschub. 

uebertrage 3.0 nach drei, 
uebertrage 4.0 nach vier. 

zeigez "Entscheidungen:". 

wenn drei = vier dann 

zeigez "Fehler bei =!". 

sonst 

zeigez "Kein Fehler bei =!". 

wenn drei > vier dann 
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1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 


zeigez "Fehler bei > !". 

sonst 

zeigez "Kein Fehler bei > !". 

wenn drei >=vier dann 

zeigez "Fehler bei >=!". 

sonst 

zeigez "Kein Fehler bei >=!". 
wenn drei /= vier dann 
zeigez "Kein Fehler bei /=!". 

wenn drei < vier dann 

zeigez "Kein Fehler bei < !". 

wenn drei <= vier dann 

zeigez "Kein Fehler bei <=!". 

sonst 

zeigez "Fehler bei <=!". 

wende. 

sonst 

zeigez "Fehler bei < !". 
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1660 

1670 

1680 

1682 

1684 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


wende. 


sonst 

zeigez "Fehler bei /=!". 

wende. 
wende. 
wende. 
wende. 

pende entscheidungstest. 
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SCHLEIFEN 


Um einen Anweisungsblock mehrfach durchlaufen zu können, 
benötigen wir die Konstruktion von Schleifen. 

In MINIATUR wollen wir dazu zwei Anweisungen zur Verfügung 
stellen. 

1) Eine Endlosschleife mit einer Ausgang-Anweisung 

2) Eine Schleifenanweisung mit Parametern 

1) Die Endlosschleife: 

schleife schleifenbezeichner ueber 


ausgang schleifenbezeichner wenn bedingung. 

sende schleifenbezeichner. 

Eine Variante ist die Endlosschleife folgender Form: 

schleife Schleifenbezeichner ueber 


-- Anweisungsblock 


sende schleifenbezeichner. 

Dies ist die einfachste Form einer Schleife, zugleich aber 
auch die Form, die am wenigsten gebraucht wird. Denn ist man 
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erst einmal in dieser Schleife, wird die angegebene 
Anweisungsfolge so oft und so lange ausgeführt, bis der 
Rechner ausgeschaltet wird. Eine sinnvolle Anwendung wäre 
Z.B.: Beim Einschalten Ihres Rechners gelangt dieser in eine 
Endlosschleife. Er wartet auf einen Befehl von Ihnen und 
kommt, wenn er diesen ausgeführt hat, wieder an seinen 
Ausgangspunkt zurück. Diese Interpretationsschleife ist dann 
die oberste Struktur im Rechner und alle anderen Strukturen 
sind der Schleife untergeordnet. Es würde Ihnen nicht 
gelingen, dieser Schleife zu entfliehen. 

Oder eine andere Anwendung: 

Ihr Rechner soll nacheinander alle positiven ganzen Zahlen 
ausgeben: 

100 Programm endlos ist 
110 
120 

130 -- Dieses Programm gibt 

140 — alle positiven ganzen Zahlen 

150 -- aus dem Rechenbereich aus. 

160 

170 

180 fliess zahl, eins. 

190 

200 beginne 
210 

220 uebertrage 1.0 nach eins. 

230 

240 uebertrage 0.0 nach zahl. 

250 

260 schleife ganz ueber 
270 

280 zeigez Zahl. 

290 

300 addiere eins zu zahl nach zahl. 
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310 

320 sende ganz. 

330 

340 pende endlos. 

Um uns nur die ersten 100 positiven ganzen Zahlen ausgeben 
zu lassen, brauchen wir die Möglichkeit, die Schleife 
'endlos' zu verlassen, wenn die Ausgabe abgebrochen werden 
soll. 


Die Anweisung 'ausgang' hat folgenden Aufbau: 
ausgang schleifenbezeichner wenn bedingung. 

Wie eine 'bedingung' aufgebaut ist, wissen wir schon aus dem 
letzten Kapitel: 

Variablenbezeichner Operator Variablenbezeichner 


Als Operatoren stehen wieder zur Verfügung: 


Operator 

/ = 

< 

< = 

> 

> = 


Bedeutung 
gleich 
ungleich 
echt kleiner 
kleiner gleich 
echt größer 
größer gleich 


Ist die Bedingung erfüllt, so wird im Programm zum Ende der 
Schleife gesprungen, dessen Name angegeben ist, d.h. es wird 
die Anweisung ausgeführt, die nach der Schleife steht. 
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Betrachten wir doch unser Beispiel mit dieser Anweisung: 


100 Programm hundert ist 
110 
120 

130 -- Dieses Programm gibt 

140 -- alle positiven ganzen Zahlen 

150 -- bis Hundert aus. 

160 

170 

180 fliess zahl, eins, hundert. 

190 

200 beginne 
210 

220 uebertrage 1.0 nach eins. 

230 

240 uebertrage 0.0 nach zahl. 

250 

260 uebertrage 100.0 nach hundert. 

270 

280 schleife ganz ueber 

290 

300 zeigez zahl. 

310 

320 addiere eins zu zahl nach zahl. 

330 

340 ausgang ganz wenn hundert = zahl. 
350 

360 sende ganz. 

370 

380 pende hundert. 
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Jeder Schleife innerhalb eines Programms einen Namen zu 
geben, scheint auf den ersten Blick reichlich überflüssig, 
hat aber entscheidende Vorteile: 

- Die Programmstruktur wird für den Bearbeiter deutlicher. 

- Werden Schleifen verschachelt, so wird 
dies übersichtlicher. 

- Mit der Ausgang-Anweisung kann auch aus verschachtelten 
Schleifen gesprungen werden. 

Beispiel: 

100 Programm ausgang ist 

110 

120 

130 -- Dieses Programm testet 

140 -- das Verlassen von 

150 -- verschachtelten Schleifen. 

160 

170 

180 fliess gudrun, enno, eins. 

190 

200 beginne 

210 

220 uebertrage 1.0 nach eins. 

230 uebertrage 0.0 nach enno. 

240 uebertrage 100.0 nach gudrun. 

250 

260 

270 schleife aussen ueber 

280 
290 

300 schleife innen ueber 

310 

320 
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330 

zeigez enno. 

340 

-- 

350 

ausgang aussen 

360 

-- 

370 

addiere eins z 

380 

-- 

390 

-- 

400 

sende innen. 

410 

-- 

420 

sende aussen. 

430 

-- 

440 

pende ausgang. 


Sowohl die innere als auch die äußere Schleife werden 
verlassen, wenn die Bedingung 'enno = gudrun' erfüllt ist. 
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Es folgt noch ein 'kurzes' Testprogramm, um die Funktionen 
der Ausgang-Anweisung zu prüfen. 


1000 Programm ausgangtest ist 
1010 -- 
1020 -- 

1030 -- Dieses Programm testet die 

1040 -- Ausgang-Anweisung. 

1050 — 

1060 -- 

1070 fliess gudrun, enno, monika. 

1080 -- 
1090 beginne 
1100 — 

1105 schirmfrei. Vorschub. 

1110 zeigez "Test fuer die Ausgang-Anweisung.". 
1120 Vorschub. 

1130 - 

1140 uebertrage 2.0 nach gudrun. 

1150 uebertrage 2.0 nach monika. 

1160 uebertrage 7.0 nach enno. 

1170 -- 

1180 -- 

1190 schleife schleifea ueber 
1120 -- 

1210 schleife schleifeb ueber 
1220 -- 

1230 schleife schleifec ueber 
1240 -- 

1250 schleife schleifed ueber 
1260 -- 

1270 schleife schleifee ueber 
1280 -- 

1290 schleife schleifef ueber 
1300 -- 
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1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 


schleife schleifeg ueber 


schleife schleifeh ueber 

ausgang schleifeh wenn gudrun /= enno. 
zeigez "Ausgang schleifeh fehlerhaft.". 

sende schleifeh. 

zeigez "Ausgang schleifeh in Ordnung.", 
ausgang schleifeg wenn gudrun < enno. 
zeigez "Ausgang schleifeg fehlerhaft.", 
sende schleifeg. 

zeigez "Ausgang schleifeg in Ordnung.", 
ausgang schleifef wenn gudrun <= enno. 
zeigez "Ausgang schleifef fehlerhaft.". 

sende schleifet. 

zeigez "Ausgang schleifef in Ordnung.", 
ausgang schleifee wenn gudrun <= monika 
zeigez "Ausgang schleifee fehlerhaft.". 

sende schleifee. 

zeigez "Ausgang schleifee in Ordnung.". 
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1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 


ausgang schleifed wenn enno > monika. 


zeigez "Ausgang schleifed fehlerhaft.". 

sende schleifed. 

zeigez "Ausgang schleifed in Ordnung.", 
ausgang schleifec wenn enno > monika. 
zeigez "Ausgang schleifec fehlerhaft.". 

sende schleifec. 

zeigez "Ausgang schleifec in Ordnung.", 
ausgang schleifet wenn gudrun >= monika 
zeigez "Ausgang schleifeb fehlerhaft.". 

sende schleifet. 

zeigez "Ausgang schleifet in Ordnung.", 
ausgang schleifea wenn gudrun = monika. 
zeigez "Ausgang schleifea fehlerhaft.", 
sende schleifea. 

zeigez "Ausgang schleifea in Ordnung.", 
zeigez "Testprogramm beendet.", 
pende ausgangtest. 
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vielleicht kommt Ihnen das 'kurz' vom Anfang nun höhnisch 
vor, aber Testprogramme werden leicht 'länglich'. Auch 
dieses Testprogramm ist im Grunde viel zu kurz; wir haben 
z.B. noch nicht getestet, ob sich die Bildung von Schleifen 
mit den Entscheidungen verträgt. So sind noch viele Fälle 
denkbar, die zu Fehler führen können, aber wir wollen uns 
einstweilen mit diesen Programmen begnügen. Es ist gut, daß 
das Programm in der Lage ist, selbst zu sagen, was nicht in 
Ordnung ist. 
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2) DIE SOHLEIFENANHEISUNG MIT PARAMETERN: 


Wenn wir gerne wissen möchten, wie oft eine Sequenz von 
Anweisungen durchlaufen werden soll, so wählen wir diese Art 
der Schleifenanweisung. 

Die allgemeine Form lautet: 

fuer Variablenbezeichner von Variablenbezeichner 
bis Variablenbezeichner wiederhole 


sende. 


Gleich ein Beispiel: 


100 Programm abzaehlen ist 

1 10 

120 

130 -- Dieses Programm gibt die Zahlen 

140 -- von 1 bis 10 aus. 

150 

160 

170 fliess index, untergrenze, obergrenze. 

180 

190 beginne 
200 

210 uebertrage 1.0 nach untergrenze. 

220 uebertrage 10.0 nach obergrenze. 

230 

240 fuer index von untergrenze bis obergrenze wiederhole 
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zeigez Index. 


250 

260 

270 

280 

290 

300 


sende. 

pende abzaehlen. 


Ich nehme an, daß die Schleifanweisung klar genug wurde. 
Das Testprogramm für verschachtelte Schleifen: 


1000 Programm partest ist 
1010 -- 

1020 -- 

1030 -- Dieses Programm testet verschachtelte 

1040 -- Schleifen mit Parametern. 

1050 -- Das Ergebnis soll 1000 sein. 

1060 -- 

1070 -- 

1080 fliess indexa, indexb, indexc. 

1090 fliess untergrenze, obergrenze, zahl, eins. 

1100 -- 

1110 beginne 
1120 -- 

1130 uebertrage 1.0 nach untergrenze. 

1140 uebertrage 10.0 nach obergrenze. 

1150 uebertrage 0.0 nach zahl. 

1155 uebertrage 1.0 nach eins. 

1160 -- 

1170 -- 

1180 fuer indexa von untergrenze bis obergrenze wiederhole 
1190 -- 

1200 fuer indexb von untergrenze bis obergrenze wiederhole 
1210 -- 
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1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


fuer Indexe von untergrenze bis obergrenze wiederhole 


addiere eins zu zahl nach zahl. 

sende. 
sende. 
sende. 


zeigez "Das Ergebnis ist:", zeigez zahl, 
pende partest. 
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SPRÜNGE 


Manchmal ist es innerhalb eines Programmes notwendig, an 
eine bestimmte Stelle zu springen. Dies erledigt man mit 
einem Sprungbefehl, in Basic z.B. mit Hilfe des 
Goto-Befehls. Beispiel: Goto 100. Dies heißt: "Gehe zur 
Zeile mit der Nummer 100". In MINIATUR haben aber die 
Zeilennummern keine Bedeutung. Wir müssen uns etwas anderes 
einfallen lassen. 

sprungmarke Name. 

Einen Sprung auf diese Stelle könnten wir mit dem Befehl: 
springe Name. 

erreichen. Hierbei ist 'Name' eine Buchstabenkombination, 
die im Programm sonst nicht vorkommt. 


Ein Beispiel: 

100 Programm sprung ist 

110 

120 

130 -- Dieses Programm wird durch die 

140 Eingabe einer 1 beendet. 

150 

160 

170 fliess eins, test. 

180 

190 beginne 
200 

210 uebertrage 1.0 nach eins. 
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220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

*350 

360 

370 


sprungmarke anfang. 


hole test. Vorschub. 

wenn test = eins dann 

leer. 

sonst 

springe anfang. 

wende. 

pende Sprung. 
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UNTERPROGRAMME 


Unterprogramme benutzt man, wenn man eine Folge von 
Anweisungen nur einmal abspeichern möchte. Unterprogramme in 
MINIATUR sollen nicht mit lokalen Variablen arbeiten, sie 
dürfen nur ausführbare Anweisungen enthalten. 

Unterprogramme werden an das Hauptprogramm angehängt und wie 
folgt definiert: 

Unterprogramm Unterprogrammbezeichner ist 


— Anweisungsblock 


uende Unterprogrammbezeichner. 

Sie werden mit folgendem Befehl aufgerufen: 
rufe Unterprogrammbezeichner. 

Auch hier wird nur ein Beispielprogramm angegeben, das die 
Anweisung besser erklärt als viele Worte. 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


Programm uprogtest ist 


-- Dieses Programm ruft wahlweise 
-- Unterprogramm A oder B auf. 

fliess test, eins, 
beginne 

uebertrage 1.0 nach eins. 

sprungmarke anfang. 

zeigez "Unterprogramm a(1)/b(2)". 

hole test. Vorschub. 

wenn test /= eins dann 

rufe a. 

sonst 

rufe b. 

wende. 

springe anfang. 
pende uprogtest. 


Unterprogramm a ist 
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450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 


zeigez ''Unterprogramm a.". 


uende a. 


Unterprogramm b ist. 


zeigez "Unterprogramm b.". 


uende b. 
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DIE LEXIKALISCHE ANALYSE 


WARUM EINE LEXIKALISCHE ANALYSE? 

Die lexikalische Analyse ist der erste Schritt in der 
Analyse eines Programms. Sie hat die Aufgabe, die Programme 
in eine Form zu bringen, die es gestattet, die nachfolgenden 
Schritte einfacher zu gestalten. 

Die Programme sollen auf eine Normalform gebracht werden, 
die keine für das Programm unwichtigen Teile mehr enthält. 
Wir können ein MINIATÜR-Programm auf vielfältige Art und 
Weise niederschreiben, ohne die Logik des Programms selbst 
zu verändern. Wir können zwischen Groß- und Kleinschreibung 
wählen, so viele Leerzeichen zwischen den einzelnen Worten 
lassen wie wir wollen, Kommentare anfügen, Zeilennummern 
willkürlich wählen und, und, und ... . 

Die lexikalische Analyse soll nun sozusagen die Spreu vom 
Weizen trennen. Dies wohlgemerkt aus der Sichtweise eines 
Compilers, denn ein Programm ohne Kommentare ist aus der 
Sichtweise eines Benutzers wohl eher eine Zumutung. Das 
Programm wird in sogenannte Token zerlegt, das sind die 
kleinsten Sinneinheiten unseres Programms. Die Token in 
MINIATÜR-Programmen sind die Schlüsselworte wie z.B. 
Programm, ist, =, ., /, Pende, ... . Auch die vom Benutzer 

gewählten Worte wie z.B. Programmbezeichner, 

Variablenbezeichner ... werden als Token bezeichnet, ebenso 
wie Zeichenketten oder Zahlen. 

Ein Programm, das aus einer Folge von Zeichen (unser 
Miniatur-Programm) die Token (Worte) heraussucht, nennt man 
auch Scanner. 
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Damit wäre fürs erste erklärt, wozu eine lexikalische 
Analyse nötig ist. Die Einzelheiten, wie der Scanner 
arbeitet, erfahren Sie im folgenden Kapitel und warum der 
Scanner eine wichtige Aufgabe erfüllt, lesen Sie im Kapitel 
über die syntaktische Analyse. 
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ARBEITET DER SCANNER? 


Betrachten wir dazu doch einmal eine Zeile aus einem der 
Programme aus dem letzten Kapitel 1 

340 ausgang ganz wenn hundert=zahl. 

Wie geht der Scanner nun vor, wenn er diese Zeile bearbeiten 
soll? 

Am Anfang der Zeile steht die Zeilennummer. Da diese für das 
Programm unwichtig ist, wird sie überlesen. Dann folgt die 
Buchstabenkombination 'ausgang'. Nach dieser Kombination 
steht ein Leerzeichen. An diesem Leerzeichen erkennt der 
Scanner, daß das Wort zu Ende ist. Nun wollen wir aber gerne 
noch wissen, ob 'ausgang' ein Schlüsselwort ist oder ein vom 
Benutzer gewähltes Wort. Dazu schaut der Scanner in der 
Tabelle der Schlüsselworte nach und findet es dort auch. Für 
alle weiteren Analyseschritte ist es nun nicht mehr nötig, 
uns das ganze Wort zu merken, sondern wir ordnen den 
Schlüsselworten Zahlen zu, die wir uns an deren Stelle 
merken. Dies erleichtert den Umgang mit Schlüsselworten 
insofern, als wir nicht noch öfter in einer Tabelle 
nachschlagen müssen, um welches Schlüsselwort es sich 
handelt. 

Nach dem Wort 'ausgang' liest der Scanner das Wort 'ganz', 
dessen Ende er wiederum durch das Leerzeichen erkennt. 
Dieses Wort ist kein Schlüsselwort und wir merken uns das 
Wort “ganz". Wie der Scanner das folgende Wort 'wenn' 
erkennt und welche Aktionen er ausführt, wissen wir bereits. 

Es gibt in jeder Sprache Zeichen, die eindeutig markieren, 
wenn ein Wort zu Ende ist. Diese Zeichen nennt man Begrenzer 
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(engl. Delimiter). In MINIATUR sind u.a. das 
Gleichheitszeichen und der Punkt Begrenzer. Nun ist klar, 
wie der Rest der Zeile bearbeitet wird. 

Nach dieser noch sehr unpräzisen Beschreibung, die uns ein 
wenig Anschauung liefern sollte, könnte fast schon losgelegt 
und das Programm für den Scanner geschrieben werden. Aber 
die Teilaufgaben des Scanners sind erst noch einmal genauer 
zu formulieren. Einige Vorarbeiten müssen noch ausgeführt 
werden. 

Die Teilaufgaben: 

Programm lesen und Protokollzeile ausgeben. 

Begrenzer erkennen. 

Schlüsselworte erkennen. 

Leerzeichen entfernen, außer in mit Anführungsstrichen 
versehene Zeichenketten, wie z.B. in "Enno der Cocker". 
Kommentarzeilen entfernen. 

Token ausgeben. 
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PROGRAMM LESEN UND PROTOKOLLZEILE AUSGEBEN: 


Damit der Rechner ein Programm analysieren kann, muß er es 
erst einmal lesen können. Dies ist oft leichter gesagt als 
getan. 

Es wurde bis jetzt noch nicht besprochen, mit welchen 
Hilfsmitteln die Programme geschrieben werden sollen, die zu 
übersetzen sind. Ein Programm, mit dem man Programme 
schreiben kann, nennt man Editor. 

Editoren können z.B. Textverarbeitungsprogramme sein oder es 
kann auch ein eigenes für die Eingabe von Programmen einer 
bestimmten Sprache geschriebenes Programm sein. Für uns ist 
zunächst folgender Fall am einfachsten: 

Wir nehmen den im Gerät eingebauten Editor, mit dem wir 
normalerweise Basic-Programme schreiben. Diese Programme 
können dann in gewohnter Weise bearbeitet, geändert, 
abgespeichert und ausgedruckt werden. Des weiteren gehen wir 
davon aus, daß sich unser zu übersetzendes Programm auf 
einer Diskette abgespeichert befindet. Dieses Programm ist 
für uns in diesem Sinne nur eine Textdatei, die wir im 
'Klartext' lesen wollen. Unter 'Klartext' wird die 
Buchstabenfolge verstanden, die in den Rechner 
eingeschrieben wurde und auch so auf einem Rechner gelistet 
werden kann. Nun ist es aber nicht selbstverständlich, daß 
die Textdatei schon im Klartext vorgefunden wird. Der 
Basic-Editor speichert alle Basic-Schlüsselworte als eine 
Zahl. Z.B. wird 'For' durch die Zahl 129 ersetzt. Der 
Basic-Editor führt bei Eingabe einer Zeile eine lexikalische 
Analyse durch, allerdings für ein Basic-Programm und 
keinesfalls für ein MINIATUR-Programm. Diese Analyse müssen 
wir nun rückgängig machen. Auch werden die Zeilen innerhalb 
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des Speichers in einer bestimmten Form abgelegt und auch in 
dieser Form auf die Diskette übertragen. 

Schauen wir uns also an, welche Form wir vorfinden, wenn wir 
eine Textdatei lesen, die mit dem Basic-Editor erzeugt 
wurde. Zu Anfang der Datei lesen wir zwei Zeichen, die als 
Information beinhalten, ab welcher Speicherstelle sich der 
Programmtext im Speicher des Rechners befand, als er 
erstellt wurde. Diese beiden Zeichen interessieren uns 
nicht. Dann folgen die einzelnen Programmzeilen jeweils in 
der folgenden Form: 

Die ersten beiden Zeichen stellen eine Koppeladresse dar, 
die dem Basic-Editor gesagt hat, an welcher Speicherstelle 
die nächste Programmzeile anfängt. Auch diese beiden Zeichen 
überlesen wir. 

Dann folgen zwei Zeichen, die entschlüsselt die Zeilenummer 
der Programmzeile darstellen. Für unsere MINIATUR-Programme 
sind die Zeilennummern zwar überflüssig, aber falls wir zu 
einem späteren Zeitpunkt ein Protokoll unseres Programms 
erstellen wollen, werden sie als Bezugspunkte benötigt. Die 
Zeilennummern sind wie folgt zu entschlüsseln: 

Der ASCII-Wert des ersten Zeichens wird zu dem 256fachen des 
ASCII-Wertes des zweiten Zeichens addiert. 

Beispiel: 

Wir lesen die Zeichen A und I. Die ASCII-Werte von A und I 
sind: A =65 und I = 73. Dann ergibt sich die Zeilennummer 
zu 65 + 73 * 256 = 18751. 

Nun lesen wir die einzelnen Zeichen unserer Programmzeile, 
wobei die Basic-Schlüsselworte verschlüsselt angegeben sind. 
Die Basic-Worte werden in Zeichen verschlüsselt, deren 
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ASCII-Werte zwischen 128 und 203 liegen. Die normalen 
Zeichen haben aber nur einen ASCII-Wert bis 127, so daß wir 
genau wissen, wann wir ein Basic-Wort und wann ein normales 
Zeichen gelesen haben. Das verschlüsselte Basic-Wort 
entschlüsseln wir und erhalten dadurch unseren Klartext. 

Beispiel: 

Wir lesen folgende ASCII-Werte: 

80 , 128, 69 

80 = “p" , 128 = "end" , 69 = "e" 

damit ergibt sich das Wort “pende". 


Das Ende einer Zeile kennzeichnet der Basic-Editor durch ein 
Zeichen mit dem ASCII-Wert null. 


Das Ende des Programms ist durch eine Koppeladresse 
gekennzeichnet, die aus den ASCII-Werten null null besteht. 

Wir wollen jetzt ein Programm schreiben, das eine Textdatei 
liest, sie in Klartext umwandelt und zeilenweise auf den 
Bildschirm ausgibt. Dazu benötigen wir die Liste über die 
Zuordnung der Buchstaben und Zeichen zu den ASCII-Werten und 
die Zuordnung der verschlüsselten Basic-Worte zu den 
ASCII-Werten. 

Wenn von ASCII-Werten gesprochen wird, so sind damit die 
dezimalen Werte der Zeichen und Schlüsselworte gemeint, die 
der CBM-64 intern gebraucht. Bei einem anderen Gerät sehen 
diese Listen vermutlich anders aus, aber das können Sie 
durch Ihr Handbuch zum Rechner feststellen. 
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Hier nun die Liste der Zeichen/Worte und ihrer ÄSCII-Werte. 


Wert 

Zeichen 

32 

Leerstelle 

34 

II 

36 

$ 

38 

&c 

40 

( 

42 

* 

44 

r 

46 


48 

0 

50 

2 

52 

4 

54 

6 

56 

8 

58 


60 

< 

62 

> 

64 

Paragraph 

66 

b 

68 

d 

70 

f 

72 

h 

74 

j 

76 

1 

78 

n 

80 

P 

82 

r 

84 

t 

86 

V 

88 

X 

90 

z 

92 

Pfund 


Zeichen 

I 

# 

% 

) 

+ 

/ 

1 

3 

5 

7 

9 

7 

a 

c 

e 

g 

i 

k 

m 

o 

q 

s 

u 

w 

y 

eckige Klammer auf 
eckige Klammer zu 


Wert 

33 

35 

37 

39 

41 

43 

45 

47 

49 

51 

53 

55 

57 

59 

61 

63 

65 

67 

69 

71 

73 

75 

77 

79 

81 

83 

85 

87 

89 

91 

93 
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94 

* 

95 

Pfeil-links 

96 

geshiftete 

Leerstelle 


folgen jetzt Grafik-Symbole 

bis zum ASCII 

28 

end 

129 

for 

30 

next 

131 

data 

32 

input# 

133 

input 

34 

dim 

135 

read 

36 

let 

137 

goto 

38 

run 

139 

if 

40 

restore 

141 

gosub 

42 

return 

143 

rem 

44 

stop 

145 

on 

46 

wait 

147 

load 

48 

save 

149 

verify 

50 

def 

151 

poke 

52 

print# 

153 

print 

54 

cont 

155 

list 

56 

clr 

157 

cmd 

58 

sys 

159 

open 

60 

dose 

161 

get 

62 

new 

163 

tab( 

64 

to 

165 

fn 

66 

spc ( 

167 

then 

68 

not 

169 

Step 

70 

+ 

171 

- 

72 

* 

173 

/ 

74 

Pfeil hoch 

175 

and 

76 

or 

177 

< 

78 

= 

179 

> 

80 

sgn 

181 

int 

82 

abs 

183 

usr 

84 

f re 

185 

pos 

86 

sqr 

187 

rnd 

88 

log 

189 

exp 
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190 

cos 

191 

sin 

192 

tan 

193 

atn 

194 

peek 

195 

len 

196 

str$ 

197 

val 

198 

asc 

199 

chr$ 

200 

left$ 

201 

right$ 

202 

mid$ 

203 

go 
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Nun zu dem Programm, das eine Textdatei in Klartext 
unwandelt und Zeile für Zeile ausgibt. Dieses Programm 
werden wir dann um die restlichen Teilaufgaben erweitern. 
Wir wollen es auch gleich so schreiben, daß wir es als 
Unterprogramm für die syntaktische Analyse gebrauchen 
können. 

Das Programm für die syntaktische Analyse wird das Programm 
für die lexikalische Analyse jedesmal aufrufen, wenn es ein 
neues Token braucht. Dies als kleine Vorausschau. 

Zur Aufteilung des Programms: 

Die Zeilen bis zur Nummer 1000 wollen wir zur Vereinbarung 
und Erklärung der verwendeten Variablen gebrauchen. 

Die Zeilen bis zu Nummer 2000 werden für vorzubereitende 
Aufgaben reserviert. 

Von Zeile 2000 - 50000 steht das Programm für die 

syntaktische Analyse. 

Ab Zeilennummer 50000 wollen wir das Programm für die 
lexikalische Analyse schreiben. 

Die einzelnen Zeilen sollen nicht in der Reihenfolge 
besprochen werden, in der sie dann später im fertigen 
Programm auftauchen, sondern es soll versucht werden, das 
Programm vom logischen Aufbau her zu erklären. 


10 

rem 

Programm fuer die 

lexikalische 

20 

rem 

und syntaktische 

Analyse 

30 

rem 

von Miniatur-Programmen. 

40 

rem 

-- 


50 

rem 

Vereinbarungen 


60 

rem 

-- 
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Wir gehen davon aus, daß sich das zu übersetzende Programm 
auf einer Diskette befindet und am Rechner eine 
Diskettenstation angeschlossen ist. Diese Ausgaben der 
syntaktischen Analyse wollen wir auf eine Datei auf der 
Diskette schreiben und das Programmprotokoll wahlweise auf 
den Bildschirm oder einen Drucker ausgeben. 


80 

fl = 

8: rem 

Geraetenummer der Diskettenstation 

90 

be = 

15: rem 

logische Filenummer und 




Sekundaeradresse 

95 


rem 

des Befehlskanals der Diskettenstation 

100 

in = 

8: rem 

logische Filenummer und 




Sekundaeradresse 

105 


rem 

des Eingabekanals für die Eingabedatei 

110 

ou = 

7 : rem 

logische Filenummer und 




Sekundaeradresse 

115 


rem 

des Ausgabekanals für die Ausgabedatei 

120 

pr = 

3 : rem 

Ausgabekanal für Programmprotokoll 

125 


rem 

Bildschirm ist voreingestellt. 

130 

i1$=" 

n .i2$=” •• 

:i3$="'': rem Eingabevariablen 

140 

O 

II 

r- 

•H 

:i2=0 

:i3=0 : rem Die entsprechenden 




ASCII-Werte. 

Wenn 

Sie 

möchten, 

können Sie das Programm so wie es 


besprochen wurde eingeben. Sonst finden Sie aber am Ende des 
Buches das Programm ohne Kommentare. 

Beginnen wir nun mit den Vorbereitungen, die das Programm 
bei seinem Start erledigen muß: 


1000 

rem 

1010 

rem 

1020 

rem 

1030 



Vorbereitungen 
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1040 print " Taste clr " : rem Bildschirm loeschen 

In Zeile 1040 soll der Bildschirm gelöscht werden, darum 
anstelle von "Taste clr" einfach diese Taste drücken. 

1050 print: prinf'Der Miniatur-Uebersetzer:": print 
1060 print "Protokoll auf Drucker oder Schirm (d/s)?" 

1070 get i1$ : if i1$ = "d" or i1$ = "s" then 1090 

1080 goto 1070 

1090 if i1$= "d" then pr = 4 

1100 open pr,pr,7 : rem Oeffnen Protokollkanal 

Der entsprechende Ausgabekanal für das Programmprotokoll 
wird eröffnet. 

Für den Schirm ergibt sich: open 3,3,7 
und für den Drucker: open 4,4,7 

Der Drucker muß also die Geräteadresse 4 haben, sonst müssen 
Sie den Befehl entsprechend ändern. 

1110 print : print "Bitte Datendiskette einlegen." 

1120 print "Weiter mit Return !" : print 
1130 get i1$ : if i1$<>chr$(13) then 1130 
1140 print "Welches Programm soll uebersetzt werden?" 

1150 input "Name:",i2$ 

Nun haben wir alle Informationen, um die entsprechenden 
Dateien auf der Diskette zu eröffnen. Als erstes wollen wir 
jedoch den Befehlskanal zur Diskettenstation eröffnen und 
die Diskettenstation initialisieren, d.h. in den Zustand 
versetzen, den sie direkt nach dem Einschalten hatte. 

Vielleicht werden Sie die Arbeitsweise mit der 
Diskettenstation für etwas umständlich halten, aber ich habe 
im Umgang mit der Diskettenstation schon die "tollsten 
Dinger" erlebt. So erhalten die meisten Angaben, die auf den 
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ersten Blick überflüssig erscheinen, doch ihren Sinn. 

Die Ausgaben der syntaktischen Analyse wollen wir auf eine 
sequentielle Datei mit dem Namen "miniatur-syn" schreiben. 
Falls wir mit der Diskette schon eine Übersetzung gefahren 
haben, existiert diese Datei bereits. Wir löschen sie 
deshalb. Nun kann es geschehen, daß der Benutzer des 
Programms bei der Anforderung der Datendiskette zwar die 
Return-Taste gedrückt, aber keine Diskette eingelegt hat. 
Wir wollen deshalb ein Unterprogramm schreiben, das wir 
immer dann aufrufen, wenn wir wissen wollen, ob die 
Diskettenstation einen Fehler gefunden hat. 

Eröffen des Befehlskanals: 


1160 open be,fl,be 
1170 print#be,"i” 


Das Unterprogramm zur Fehlerbehandlung: 


60000 
60010 
60020 
60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 


rem Fehlerkanal Diskettenstation lesen 


input#be,en,em$,et,es :if en=0 then return 
print 

Fehler auf Diskette!" 
Fehlernummer : ";en 
Fehlernachricht ;" 

; em$ 

Fehlerhafter Sector : ";et 
Fehlerhafte Spur :";es 


• * * * * 
' * ★ * * 


print "**** 
print “**** 
print "**** 
print 
print 

print "**** 
print#be,"i" 
dose be : dose pr 

print : print •'**** Programm abgebrochen!" 
end 


Wir benutzen hier die neuen Variablen en, em$,et,es. 
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Also ergibt sich Zeile 150 zu: 


150 en=0:em$="":et=0:es=0 : rem Fehlerkanal lesen 

Löschen von "miniatur-syn": 

1180 print#bes:miniatur-syn“ 

1190 Inputttbe,en,em$,et,es 
1200 if enOI then 60030 

Nach dem Löschen einer Datei hat en den Wert 1. Darum können 
wir nicht direkt das Unterprogramm aufrufen, sondern müssen 
den Fehlerkanal selbst abfragen. 
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Eröffnen wir nun die Ein- und Ausgabedateien: 


1210 

open in, f 1, in, i2$+'‘p, r" : gosub 60000 

1220 

get#in,i1$,i1$ 

1230 

open ou,f1,ou,"miniatur-syn,s,w" : Gosub 60000 


In Zeile 1220 überlesen wir die ersten beiden Zeichen der 
Eingabedatei, die für uns keine Bedeutung haben. 

1240 gosub 59000 

In dem Unterprogramm ab Zeile 59000 wollen wir in ba$ die 
verschlüsselten Basic-Worte im Klartext speichern. Da es 
insgesamt 76 Basic-Worte gibt, lautet Zeile 160: 


160 

dim ba$(75) : rem Klartext Basic-Worte 


59000 

rem Basic-Worte im Klartext 

59005 


59008 

ba$(0)="end" 

59010 

ba$(1) = "for'' 

59020 

ba$(2) = ''next" 

59030 

ba$(3)="data" 

59040 

ba$(4) = "input#'’ 

59050 

ba$(5)="input" 

59060 

ba$(6)="dim" 

59070 

ba$(7)="read" 

59080 

ba$(8)=“let“ 

59090 

ba$ (9 ) = ''goto'' 

59100 

ba$ (10) = "run'' 

59110 

ba$(11) = ‘'if' 

59120 

ba$ (12 ) = "retore'‘ 

59130 

ba$(13)=“gosub" 

59140 

ba$(14)="return" 

59150 

ba$(15)="rem" 
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59160 

59170 

59180 

59190 

59220 

59210 

59220 

59230 

59240 

59260 

59270 

59280 

59290 

59300 

59310 

59320 

59330 

59340 

59350 

59360 

59370 

59380 

59390 

59400 

59410 

59420 

59430 

59440 

59450 

59460 

59470 

59480 

59490 

59500 

59510 

59520 


ba$ 

(16) = 

"stop“ 

ba$ 

(17) = 

"on" 

ba$ 

(18) = 

"wait" 

ba$ 

(19) = 

"load" 

ba$ 

(20) = 

"save" 

ba$ 

(21) = 

"verify 

ba$ 

(22) = 

"def" 

ba$ 

(23) = 

"poke" 

ba$ 

(24) = 

"print# 

ba$ 

(26) = 

"conf 

ba$ 

(27) = 

"list“ 

ba$ 

(28) = 

"clr" 

ba$ 

(29) = 

"cmd" 

ba$ 

(30) = 

" sys •• 

ba$ 

(31) = 

"open 

ba$ 

(32) = 

"dose" 

ba$ 

(33) = 

"get" 

ba$ 

(34) = 

"new" 

ba$ 

(35) = 

"tab(" 

ba$ 

(36) = 

"to" 

ba$ 

(37) = 

"fn" 

ba$ 

(38) = 

"spc(" 

ba$ 

(39) = 

"then" 

ba$ 

(40) = 

"not" 

ba$ 

(41) = 

"Step" 

ba$ 

(42) = 

" + " 

ba$ 

(43) = 

II ^ II 

ba$ 

(44) = 

II * II 

ba$ 

(45) = 


ba$ 

(46) = 

"Pfeil ] 

ba$ 

(47) = 

"and" 

ba$ 

(48) = 

"or" 

ba$ 

(49) = 

II ^ II 

ba$ 

(50) = 

II _ 11 

ba$ 

(51) = 

">" 

ba$ 

(52) = 

"sgn" 
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59530 

ba$(53)="int" 

5954ß 

ba$(54)="abs" 

59550 

ba$(55)=“usr“ 

59560 

ba$ (56 ) = "fre'' 

59570 

ba$(57)=“pos" 

59580 

ba$(58)="sqr" 

59590 

ba$(59) = “rnd‘' 

59600 

ba$(60) = “log'' 

59610 

ba$(61 ) = '‘exp" 

59620 

ba$(62) = "cos'‘ 

59630 

ba$(63)="sin“ 

59640 

ba$(64)=“tan" 

59650 

ba$(65)=“atn” 

59660 

ba$(66)=“peek“ 

59670 

ba$(67)=“len“ 

59680 

ba$(68)=“str$“ 

59690 

ba$(69)="val" 

59700 

ba$(70)=“asc“ 

59710 

ba$(71)="chr$“ 

59720 

ba$(72)=“left$“ 

59730 

ba$(73)=“right$ 

59740 

ba$(74)=“rnd$" 

59750 

ba$(75)="go“ 

59760 

return 

59770 



Dieses Unterprogramm durchlaufen wir einmal zu Anfang der 
lexikalischen Analyse. 

Jetzt sind wir fast soweit, daß wir das Programm schreiben 
können, welches die syntaktische Analyse fürs erste 
vertreten soll. Dieses Programm soll nichts anderes machen, 
als vor dem Unterprogramm für die lexikalische Analyse 
solange ein neues Token verlangen, bis das Ende der Datei 
gelesen ist. Aber wir müssen dem Programm für die 
lexikalische Analyse noch eine Starthilfe geben, nämlich die 
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erste Koppeladresse und die erste Zeilennummer lesen. Dazu 
schreiben wir ein Unterprogramm ab Zeile 51000, welches wir 
später immer dann aufrufen, wenn wir das Ende einer Zeile 
erreicht haben und diese Aufgaben zu erledigen sind. 

Bei der lexikalischen Analyse sollten wir in i1$ das Zeichen 
haben, welches wir gerade bearbeiten und in i2$ und i3$ die 
nächsten beiden Zeichen, so daß wir in der Lage sind, in 
unserem Programm ein Stück vorauszuschauen. Dies ist eine 
sehr praktische Sache, wie wir noch sehen werden. In 
i1,i2,i3 sollen wir die ASCII-Werte der entsprechenden 
String-Variablen speichern. 

Das Unterprogramm, welches ein Zeichen einliest und die 
Werte von i1$, i2$, i3$ entsprechend verschiebt, schreiben 
wir ab Zeile 51500. 

51500 rem Zeichen einiesen 
51505 : 

51510 i1$=i2$ : i2$=i3$ : get#in,i3$ 

51520 i1=i2 : i2=3 : if i3$="" then i3=0 : return 

51530 i3=asc(i3$): return 

51540 : 

Dieses Unterprogramm müssen wir zweimal aufrufen, bevor wir 
in das Unterprogramm für den Zeilenanfang ab 51000 springen: 

1250 gosub 51500 : gosub 51500 : gosub 51000 

51000 rem Zeilenanfang 

In i2$ und i3$ steht die Koppeladresse für die nächste 
Zeile, diese überlesen wir. 
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Dann kommen die beiden Zeichen, die die Information der 
Zeilennummer enthalten. Die Zeilennummer wollen wir auf die 
Ausgabedatei schreiben, damit wir später wieder auf sie 
zurückgreifen können. Dazu senden wir als erstes ein Zeichen 
mit dem ASCII-Code 254 und dann die beiden Zeichen der 
Zeilennummer zur Diskettenstation. Das Zeichen 254 kann in 
keinem anderen Zusammenhang auftreten, so daß wir später 
beim Lesen des Zeichens 254 die nachfolgende Zeilennummer 
erkennen können. 

Des weiteren soll die Bildschirmausgabe bzw. Druckerausgabe 
auf die nächste Zeile eingestellt werden. Dazu wird ein 
WagenrücklaufZeichen auf dem Kanal PR gegeben. Anschließend 
geben wir die Zeilennummer im Klartext aus. 

Dann muß i1$,i2$,i3$ aktualisiert werden. In i1$ soll das 
erste Zeichen der neuen Zeile stehen. 

51005 : 

51010 gosub 51500 : gosub 51500 : gosub 51500 
51020 print#ou,chr$(254);i1$;i2$; 

51030 print#pr,chr$(13);str$(il+i2*256); 

51040 gosub 51500 : gosub 51500 : return 

Es scheint das Schicksal der Programmierung zu sein, daß man 
tausend Worte braucht, um ein paar Programmzeilen zu 
beschreiben, aber ohne die Erklärung ist es oft nicht mehr 
möglich, den Sinn eines Programms zu erschließen. 

Noch eine Bemerkung, die wichtig erscheint: 

Um das Programm übersichtlich zu gestalten, kommt ein Teil 
der Unterprogramme die oft durchlaufen werden, sehr weit 
nach hinten im Gesamtprogramm. Für Programme, die nur 
interpretiert werden, ist das nicht gut, da ein Aufruf 
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dieser Programme länger dauert, als wenn sie weit vorne 
stünden. Bei übersetzten Programmen tritt dieser Effekt 
nicht auf. Ebenfalls bei Assemblerprogrammen hat man dieses 
Problem nicht. 


Das Programm, das die syntaktische Analyse vertritt: 

2000 gosub 50000 : if t$<>chr$(255) then 2000 
2010 print#pr,chr$(13)"Lexikalische Analyse 
abgeschlossen!" 

2020 dose pr 

2030 dose in 

2040 dose ou 

2050 dose be 

2060 end 

Dieses Programm fordert solange ein neues Token an, bis 
t$=chr$(255) erfüllt ist. Dieses Zeichen soll bei uns das 
Ende des Programms bedeuten. Die geöffneten Dateien werden 
geschlossen, um das Programm zu einem wohldefinierten Ende 
zu bringen. 


Zurück zur Aufgabe 'Programm lesen' und 'Protokollzeile 
ausgeben': 

50000 rem lexikalische Analyse 

50010 if i1=0 then if i2=0 then if i3=0 then t$=chr$(255) : 

return 

Sind i1 und i2 und i3 gleich Null, so bedeutet das, daß wir 
das Programmende erreicht haben. Die Koppeladresse ist Null. 

50020 if i1=0 Then Gosub 51000 
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Das Zeilenende wird erkannt und wir verzweigen zum passenden 
Unterprogramm. 

50030 if i1>127 and i1<204 then i1$=ba$(i1-128) 

Ist i1 größer als 127 und kleiner als 204, dann handelt es 
sich bei i1$ um ein verschlüsseltes Basic-Wort, das wir 
entschlüsseln müssen. 

i1$ wird durch den Klartext ersetzt, der in ba$ gespeichert 
ist. 

50200 print#pr, i1$; gosub 51500 
50210 return 

Wir lassen uns einige Zeilennummern frei, um von hier die 
restlichen Aufgaben des Scanners zu steuern. 

Das Programm, wie wir es bis hier entwickelt haben, können 
Sie jetzt laufen lassen. Sie erhalten dann ein Protokoll 
Ihres MINIATUR-Programms. 
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Kommentarzeilen entfernen: 


Als nächstes wollen wir uns ansehen, wie wir Kommentarzeilen 
entfernen können. 

Kommentare sind gekennzeichnet durch zwei unmittelbar 
aufeinanderfolgende Minuszeichen. Danach muß der Rest der 
Zeile überlesen werden. 

Folgende Zeile erkennt Kommentare: 

50040 if i1$=171 then if i2$=171 then gosub 51700 : goto 
50000 

Folgende Zeilen lesen die Programm-Zeile bis zum Ende und 
geben sie auf den Bildschirm aus: 

51700 rem Zeile bis zum Ende ueberlesen 
51705 : 

51710 print#pr,i1 $; : gosub 51500 : if i1=0 then return 

51720 if i1>127 and i1<204 then i1$=BA$(i1-128) 

51730 goto 51710 
51740 : 


Überflüssige Leerzeichen überlesen: 

Wenn wir in unserem MINIATUR-Programm zwei oder mehr 
Leerzeichen hintereinander setzen, so sind diese bis auf 
eines überflüssig. Entfernen wir die überflüssigen mit 
folgender Zeile: 

50050 if i1$='' " then if i2$=" " then print#pr, i 1 $; : gosub 

51500 : goto 50000 

Nun sind Token aber meistens aus mehreren Zeichen 
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zusammengesetzt. Das Ende eines Token erkennen wir durch die 
Begrenzer. Dies bedeutet, daß wir i$ um T1$ erweitern 
wollen, solange in i2$ kein Begrenzer ist. 

50190 t$=t$+i1$ 

Zeile 2000 erweitern wir um: 

2000 t$=" “ : gosub 50000 ... . 

Jetzt benötigen wir noch zwei Unterprogramme: 

Eines um herauszufinden, ob ein Token ein 

MINIATURschlüsselwort ist, und ein anderes, um Zeichenketten 
zusammenzusetzen, da innerhalb von Zeichenketten weder Groß¬ 
in Kleinschrift umgewandelt noch Leerzeichen gelöscht werden 
dürfen. 

Ersteres werden wir ab Zeile 52000 und letzteres ab Zeile 
53000 schreiben. 

50070 if i1=34 then gosub 53000 : goto 50000 

Ist das aktuelle Zeichen das Anführungszeichen, so ist eine 
Zeichenkette zu überlesen. 

53000 rem Zeichenkette überlesen 

53010 t$=t$+i1$ : gosub 51500 : ifi1<>34 then goto 53010 

53020 t$=t$+i1$ : return 

53030 : 

Begrenzer sind bei unsZeilenende,", 
Leerzeichen. 

Es gibt nun verschiedene Fälle, die eintreten können: 


93 


1) wir haben eine Zeichenkette gelesen, auf die ein Punkt 
folgt. 

50080 if i1=34 then if i2$="." then 50200 
50085 if i1=32 then if i2=34 then goto 50130 

2) In i2$ taucht ein Begrenzer auf: 

50090 ifi2$=" = " or i2$=‘7" or i2$=''<" or i2$=">" 

then gosub 52000 : goto 50200 
50100 ifi2$=".” or i2$=" " or i2=0 or i2=34 

then gosub 52000 : goto 50200 
50110 if i2$=',' then gosub 52000 : goto 50200 

3) In i1$ steht ein Begrenzer: 

50126 if i1$=''.'' or i1$=",'‘ or i1$=" = " then t$=i1$ : goto 
50200 

50128 if i1$="/'' or i1$="<" or i1$=">" then t$=i1" : goto 
50200 

4) i1$ ist ein Leerzeichen: 

50130 if i1$=" " then print#pr," : gosub 51500 : goto 
50000 


Jetzt fehlt nur noch das Unterprogramm ab Zeile 52000, das 
erkennen soll, ob ein Token ein MINIATUR-Schlüsselwort ist 
oder nicht. ist das Token ein Schlüsselwort, so wollen wir 
in t$ eine Zahl übergehen, die das Schlüsselwort 
verschlüsselt darstellt. Wir wollen den 
MINIATÜR-Schlüsselworten Zahlen ab 128 zuordnen. 

Als erstes nun eine Liste über die Schlüsselworte und die 
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Zahlen, die wir ihnen zuordnen wollen: 


Wert 

Schlüsselwort 

128 

addiere 

129 

ausgabegeraet 

130 

ausgang 

131 

beginne 

132 

bilde 

133 

cuspalte 

134 

cuzeile 

135 

dann 

136 

durch 

137 

dividiere 

138 

fliess 

139 

hintergrund 

140 

hole 

141 

ist 

142 

leer 

143 

mit 

144 

multipliziere 

145 

noch 

146 

pende 

147 

potenziere 

148 

Programm 

149 

rahmen 

150 

rufe 

151 

Schrift 

152 

schirmfrei 

153 

schleife 

154 

sende 

155 

sonst 

156 

springe 

157 

sprungmarke 

158 

subtrahiere 

159 

ueber 
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160 

uebertrage 

161 

wende 

162 

Unterprogramm 

163 

von 

164 

Vorschub 

165 

wende 

166 

wenn 

167 

zeige 

168 

zeigez 

169 

zeigeas 

170 

zu 


wir könnten einfach so Vorgehen, daß wir t$ mit jedem 
Schlüsselwort vergleichen. Dies wäre jedoch sehr 
zeitaufwendig. Es soll deshalb wie folgt vorgegangen werden: 
Wir sehen uns den ersten Buchstaben von t$ an und dann 
wissen wir bereits, welche Schlüsselworte überhaupt in 
Betracht kommen können. Es sind dies dann meist nur noch 
sehr wenige, die wir schnell durchsucht haben. 

Die MINIATUR-Schlüsselworte werden wir ebenfalls in einem 
Bereich ablegen. Dies ist zwar im Moment nicht unbedingt 
nötig, da wir sie aber in der syntaktischen Analyse bei der 
Fehlerbehandlung noch einmal benötigen, sparen wir insgesamt 
Speicherplatz. 

Es gibt insgesamt 49 MINIATUR-Schlüsselworte. 

170 dim mi$(48) : rem Klartext MINIATUR-Worte 

1245 gosub 58000 

58000 rem MINIATUR-Worte im Klartext 
58005 : 

58008 mi$(0) = '‘addiere" 

58010 mi$(1)="ausgabegeraet" 
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58020 

58030 

58040 

58050 

58060 

58070 

58080 

58090 

58100 

58110 

58120 

58130 

58140 

58150 

58160 

58170 

58180 

58190 

58200 

58210 

58220 

58230 

58240 

58250 

58260 

58270 

58280 

58290 

58300 

58310 

58320 

58330 

58340 

58350 

58360 

58370 


mi$ (2) = "ausgang'‘ 

mi$(3)="beginne" 

mi$(4)=”bilde" 

mi$(5)="cuspalte“ 

mi$(6) = ‘'cuzeile" 

mi$(7) = "dann‘' 

mi$(8)="durch" 

mi$(9)="dividiere" 

mi$(10)="fliess" 

mi$(11)="hintergrund" 

mi$(12)="hole" 

mi$(13)="ist" 

mi$(14)="leer" 

mi$(15)="mit" 

mi$(16)="multipliziere" 

mi$(17)="nach" 

mi$(18)="pende" 

mi$(19)="potenziere" 

mi$(20)="Programm" 

mi$(21)="rahmen" 

mi$(22)="rufe" 

mi$(23)="Schrift" 

mi$(24)="schirmfrei" 

mi$(25)="schleife" 

mi$(26)="sende" 

mi$(27)="sonst" 

mi$(28)="springe" 

mi$(29)="sprungmarke" 

mi$(30)="subtrahiere" 

mi$(31)="ueber" 

mi$(32)="uebertrage" 

mi$(33)="uende" 

mi$(34)="unterprogramm" 

mi$(35)="von" 

mi$(36)="Vorschub" 

mi$(37)="wende" 
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58380 

mi$(38)="wenn" 

58390 

mi$(39)="zeige“ 

58400 

mi$(40)="zeigez“ 

58410 

mi$(41 ) = ''zeigeas” 

58420 

rai$(42)=“zu" 

58430 

mi$(43)=“fuer“ 

58440 

mi$(44)="bis" 

58450 

mi$(45)=”wiederhole 

58460 

rai$(46) = '7 = ” 

58470 

mi$(47)=“<=“ 

58480 

mi$(48)=”>=” 

58490 

return 

58500 



52000 rem Ist t$ ein Token? 

52010 : 

52020 t$=t$+i1$ : t=0 : a=asc(left$(t$,1)) 

t soll den ASCII-Wert des Schlüssels des MINIATUR-Wortes 
bekommen. Ändert t seinen Wert beim Durchlaufen des 
Unterprogramms nicht, so ist in t$ kein Schlüsselwort 
gespeichert. a soll den ASCII-Wert des ersten Zeichens von 
t$ erhalten. 

180 t$=" '‘:t=0 : rem Variablen für Token 

190 a=0 : rem Hilfsvariable lexikalische Analyse 

Ist in t$ überhaupt eine Buchstabenkombination gespeichert? 

52030 if a<65 or a>90 then return 

Jetzt folgt ein berechneter Sprung auf die Unterprogramme 
für die einzelnen Buchstaben. In Basic sieht das etwas 
kompliziert aus, ist es aber nicht. 
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Als erstes teilen wir das Alphabet in 5 Abschnitte zu je 5 
Buchstaben und einen Abschnitt mit einem Buchstaben ein. 

52040 on int ((a-65)/5) goto 52060,52070,52080,52090,52100 

Nun können wir zu den Buchstaben verzweigen. Ist a im 
Bereich von 65-69, so ist int ((a-65)/5) gleich Null und die 
nächste Zeile wird genommen. 

Gibt es zu einem Buchstaben kein Schlüsselwort, so springen 
wir in Zeile 52900, in der ein “return" steht: 

52900 return 


52050 

52060 

52070 

52080 

52090 

52100 


on (a-64)goto 
on (a-69)goto 
on (a-74)goto 
on (a-79)goto 
on (a-84)goto 


52200.52220.52240.52260.52900 

52300.52900.52340.52360.52900 

52900.52380.52400.52420.52900 

52440.52900.52460.52480.52900 

52500.52520.52540.52900.52900 


goto 52560 


Nachdem wir nun die Prozedur für einen Buchstaben 
durchlaufen haben, gehen wir zu Zeile 52800. 

52800 if t=0 then return 
52810 t$=chr$(t) : return 

Ist T=0, so ist t$ kein Schlüsselwort, anderenfalls wird das 
verschlüsselte Schlüsselwort in t$ gespeichert. 


52200 

O 

II 

XI 

c=2 : 

gosub 

52700 : 

return : 

: rem 

a 

52220 

b=3 : 

c=4 : 

gosub 

52700 : 

rem b 



52230 

b=44: 

c=44 : 

gosub 

52700 : 

return : 

: rem 

bis 

52240 

b=5 : 

c=6 : 

gosub 

52700 : 

return ; 

: rem 

c 
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52260 

II 

c=9 : 

gosub 52700 : 

return : 

rem d 


52300 

b=10 

: c=10 

: gosub 

52700 

: rem f 




52310 

b=43 

: c=43 

; gosub 

52700 

: return 


rem 

f uer 

52340 

b=11 

: c=12 

: gosub 

52700 

: return 


rem 

h 

52360 

b=13 

: c=13 

: gosub 

52700 

: return 


rem 

i 

52380 

b=14 

: c=14 

: gosub 

52700 

: return 


rem 

1 

52400 

b=15 

: c=16 

: gosub 

52700 

: return 


rem 

m 

52420 

b=17 

: c=17 

: gosub 

52700 

: return 


rem 

n 

52440 

b=18 

: c=20 

: gosub 

52700 

: return 


rem 

P 

52460 

b=21 

: c=22 

: gosub 

52700 

; return 


rem 

r 

52480 

b=23 

: c=30 

: gosub 

52700 

: return 


rem 

s 

52500 

b=31 

: C=34 

: gosub 

52700 

: return 


rem 

u 

52520 

b=35 

: c=36 

: gosub 

52700 

: return 


rem 

V 

52540 

b=37 

: c=38 

: gosub 

52700 

: rem w 




53550 

b=45 

: c=45 

: gosub 

52700 

: return 


rem 

wiederhole 

52560 

b=39 

: c=42 

: gosub 

52700 

: return 


rem 

z 


52700 for d=b to c 

52710 if t$=ini$(d) then t=128+d 

52720 next d 

Diese Konstruktion ist doch nett oder? 

In mi$ sind die MINIATUR-Worte gespeichert. Fürjeden 
obengenannten Buchstaben haben wir in mi$ Eintragungen. In b 
ist die untere, in c die obere Grenze dieser Eintragungen 
gespeichert. Vergessen wir nicht b,c,d anzumelden. 

190 a=0:b=0;c=0:d=0:rem Hilfsvariablen lex. Analyse 

Damit wären wir am Ende der lexikalischen Analyse. In diesem 
Buch sollen Möglichkeiten der Programmierung in Basic 
gezeigt werden, die leicht zu verstehen, zu ändern und zu 
erweitern sind. Es sind Möglichkeiten, die häufig ein 
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längeres Nachdenken erfordern, aber im Programm dann ganz 
einfach sind. 

Wenn Sie das Programm eingegeben haben, so vergleichen Sie 
es bitte mit dem Listing weiter hinten im Buch. Es heißt 
'Das Listing des Parsers'. 

Dieses Listing ist mit einem Programm in dieses Buch 
übernommen worden, während die Zeilen oben von Hand getippt 
wurden. Im Zweifellsfalle ist das Listing maßgebend. 
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DIE SYNTAKTISCHE ANALYSE: 


Die Frage, die sich bei der syntaktischen Analyse stellt, 
ist folgende: Entspricht unser Miniatur-Programm den Regeln 
der Miniatur-Grammatik? Wir fassen das Miniatur-Programm als 
Satz in der Sprache Miniatur auf und müssen prüfen, ob der 
Satz ein gültiger Miniatur-Satz ist. Die Aufgabe können wir 
vergleichen mit dem Problem, das sich ergibt, wenn wir 
feststellen wollen, ob ein Satz den Regeln der deutschen 
Grammatik entspricht. Sehen wir uns zunächst als Beispiel 
die Analyse eines deutschen Satzes an und übertragen wir 
dann das Bekannte auf das Unbekannte. 

Wir wollen den Satz 'Der Hund bellt.' analysieren. Verkürzen 
wir die Regel für einen deutschen Satz auf folgende: 

Satz::= Subjekt Prädikat " . 

Diese Regel können wir so lesen*. 

Ein Satz besteht aus einem Subjekt, einem Prädikat und einem 
Punkt. Nun wissen wir, woraus ein Satz besteht, aber was ist 
ein Subjekt und was ein Prädikat? Was ein Punkt ist, wissen 
wir. Er erscheint auch schon in unserem Satz. 

Symbole - hier ist auch der Punkt als ein Symbol zu 
verstehen -, die in einem Satz der Sprache auftauchen 
können, wollen wir Terminal-Symbole nennen, im Gegensatz zu 
denjenigen, die wir noch weiter analysieren müssen, um zu 
Terminal-Symbolen zu gelangen, und deshalb 
Nonterminal-Symbole nennen wollen. 
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Subjekt ::= Artikel Substantiv 
Artikel ::= 'Der' 

: 'Die' 

: 'Das' 

Substantiv ::= 'Auto' 

: 'Dose' 

; 'Hund' 

Ein Subjekt soll aus einem Artikel und einem Substantiv 
aufgebaut sein. Ein Artikel kann sein : 'Der' oder 'Die' 
oder 'Das'. Bei der Analyse des Artikels haben wir also 
verschiedene Alternativen, diese wollen wir durch den 
Doppelpunkt kenntlich machen. An Substantiven steht uns zur 
Verfügung 'Auto', 'Dose', 'Hund'. 

Prädikat ::= Verb 
Verb ::= 'bellt' 

: 'glänzt' 

: 'rollt' 

Als Prädikat dürfen wir nur ein Verb wählen und als Verben 
stehen uns zur Verfügung: 'bellt', 'glänzt', 'rollt'. 

Analysieren wir jetzt unseren Satz: 

Der Hund bellt 

Subjekt Prädikat 

Artikel Substantiv Verb 
'Der' 'Hund' 'bellt' '.' 

Wir stellen also fest, daß 'Der Hund bellt.' ein gültiger 
deutscher Satz ist. Die Grammatik, die wir oben entwickelt 
haben, ist recht einfach, und wir konnten bei der Analyse so 
Vorgehen, daß wir die einzelnen Möglichkeiten 
'durchprobiert' haben. Bei einer größeren Grammatik kann das 
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aber sehr lange dauern, selbst wenn wir einen Computer zur 
Hilfe nehmen. Hier müssen wir uns noch eine Vorschrift oder 
einen Algorithmus überlegen, aber das später. Gehen wir erst 
einmal daran, eine Grammatik für Miniatur aufzustellen. Dazu 
müssen wir uns die Anweisungen von Miniatur noch einmal 
genau ansehen. 


Die Grammatik: 

Jedes Miniaturprogramm hat folgenden grundsätzlichen Aufbau: 
Programm Programmbezeichner ist 

-- Definitionsblock 

beginne 

-- Anweisungsblock 
pende Programmbezeichner. 


Unterprogramme 

Schreiben wir uns als Regel auf: 

Programm ::='Programm' Programmbezeichner 'ist' 
Definitionsblock 'beginne' 

Anweisungsblock 'pende' 

Programmbezeichner '.' Unterprogramm EOF 

Damit haben wir die Regel 'Programm' definiert. Als noch 
unbekannte Regeln kommen vor: 

- Programmbezeichner 
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- Definitionsblock 

- Anweisungsblock 

- Unterprogramm 

Haben wir auch diese definiert und diejenigen Regeln, die in 
diesen als unbekannte Regeln auftauchen, so ist unsere 
Grammatik fertig. 

Ein paar Worte noch zu der Schreibweise: 

Die Worte in Hochkommata sind die Terminal-Symbole. Alle 
Nicht-Terminal-Symbole, die auf 'bezeichner' enden, wollen 
wir gemeinsam definieren. Der jeweilige Vorsatz (z.B. 
Programm, Schleifen, Unterprogramm ...) dient nicht zur 
syntaktischen Unterteilung. Alle Bezeichner sollen den 
gleichen syntaktischen Aufbau haben, während Programm, 
Unterprogramm ... als Vorsatz die Art des Bezeichners 
angibt. Diese Unterscheidung werden wir bei der semantischen 
Analyse benötigen. Als Beispiel: Ein Programmbezeichner darf 
nicht als Variablenbezeichner verwendet werden. 

Das Nicht-Terminal-Symbol EOF bedeutet: 'END OF FILE', was 
nichts anderes meint als das physikalische Ende der 
Programmdatei. 

Die Einführung von EOF scheint etwas gekünstelt, aber wir 
werden dieses Symbol bei der Analyse brauchen. 

Unterprogramm ::= 'Unterprogramm' Unterprogrammbezeichner 
'ist' Anweisungsblock 'uende' 
Unterprogrammbezeichner '.' 
Unterprogramm 

: L 

Bei dieser Regel haben wir die Möglichkeit zu wählen. Das 
große 'L' bedeutet, daß diese Regel auch Leer sein kann. 
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d.h. wir müssen diese Regel zwar anwenden, aber sie braucht 
in unserem Miniatur-Programm nicht sichtbar zu sein. Ein 
Miniaturprogramm kann Unterprogramme enthalten, es müssen 
aber keine vorhanden sein. 

Da die Regel 'Programm' für jedes Miniatur-Programm gültig 
ist und in dieser Regel auch 'Unterprogramm' vorkommt, muß 
die Regel 'Unterprogramm' angewendet werden. 

Sind in unserem Miniatur-Programm keine Unterprogramme 
vorhanden, muß die Regel 'Unterprogramm' diese Möglichkeit 
berücksichtigen. In diesem Fall wählen wir die Alternative 
mit dem 'L'. 

Die erste Alternative beschreibt, wie ein Unterprogramm 
aufgebaut sein muß und endet wieder mit dem Aufruf der Regel 
'Unterprogramm'. Die Regel ruft sich am Ende wieder selbst, 
da es sein darf, daß mehrere Unterprogramme vorhanden sind. 
Ist nur eins vorhanden, so wird im zweiten Durchlauf die 
Alternative mit dem 'L' genommen. Neue 

Nicht-Terminal-Symbole sind bei dieser Regel nicht 
hinzugekommen. 

Wenden wir uns den Bezeichnern zu: 

Bezeichner ::= Buchstabe Bezeichner-1 
Bezeichner-1 ::= Buchstabe Bezeichner-1 

: L 


Buchstabe 


a 

'b' 
' c' 


' x' 

'y' 
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' z' 

Nach dieser Regel darf ein Bezeichner aus beliebig vielen 
Buchstaben bestehen. Wir hatten uns als Grenze 80 Buchstaben 
gesetzt. Einen Bezeichner, der mehr Buchstaben umfaßt, 
können wir gar nicht eingeben. 

Definitionsblock ::= Variablendefinition 

: L 

Variablendefinition ::= 'fliess' Variablenbezeichner 

Variablendefinition-2'.' 
Definitionsblock 

Variablendefinition-2 ::= Variablenbezeichner 

Variablendefinition-2 

: L 

Zur Erläuterung: 

Ein Definitionsblock darf leer sein. Ist er es nicht, so 
besteht er aus Variablendefinitionen. Die Regel 
'Variablendefinition' ruft am Ende Definitionsblock auf, da 
beliebig viele Variablendefinitionen angefügt werden können. 
Innerhalb einer Definition können mehrere Variablen / durch 
Komma getrennt / vereinbart werden. Darum die Einführung von 
'Variablendefinition-2'. 

Kommen wir zum Anweisungsblock: 

Dies wird jetzt ein wenig umfangreicher, da alle 
Möglichkeiten, Anweisungen zu bilden, beachtet werden 
müssen. 

Anweisungsblock ::= Anweisung Anweisungsfolge 
Anweisungsfolge ::= Anweisung Anweisungsfolge 
: L 

Anweisung ::= 'leer' '.' 
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'zeige' Zeige-1 '.' 

'zeigez' Zeige-1 '.' 

'Vorschub' '.' 

'schirmfrei' '.' 

'cuspalte' Ganzzahl 
'cuzeile' Ganzzahl 
'zeigeas' Ganzzahl 

'ausgabegeraet' Gerätebezeichner '.' 
'rahmen' Farbbezeichner '.' 

'hintergrund' Farbbezeichner 
'Schrift' Farbbezeichner '.' 

'hole' Variablenbezeichner 
'uebertrage' üebertrage-1 '.' 

'addiere' Variablenbezeichner 'zu' 
Variablenbezeichner 
'nach' Variablenbezeichner 
'subtrahiere" Variablenbezeichner 
'von' Variablenbezeichner 'nach' 
Variablenbezeichner '.' 
'multipliziere' Variablenbezeichner 
'mit' Variablenbezeichner 'nach' 
Variablenbezeichner '.' 

'dividiere' Variablenbezeichner 
'durch' Variablenbezeichner 'nach' 
Variablenbezeichner '.' 

'potenziere' Variablenbezeichner 'mit 
Variablenbezeichner 'nach' 
Variablenbezeichner '.' 

'bilde' Funktionsbezeichner 
'von' Variablenbezeichner 
Bilde-1 '.' 

'wenn' Bedingung 'dann' 
Anweisungsblock 'sonst' 
Anweisungsblock 'wende' '.' 

'schleife' Schleifenbezeichner 'ueber 
Anweisungsblock '.' 
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Soweit die Regel 


Übertrage-1 ::= 

Bilde-1 ::= 

Bedingung ::= 
Operator ::= 

Zeichenkette :: 


: 'ausgang' Schleifenbezeichner 'wenn' 

Bedingung '.' 

: 'fuer' Variablenbezeichner 'von' 

Variablenbezeichner 
'bis' Variablenbezeichner 
'wiederhole' 

Anweisungsblock 'sende' '.' 
'sprungmarke' Sprungbezeichner '.' 

: 'springe' Sprungbezeichner 

: 'rufe' ünterprogrammbezeichner '.' 

'Anweisung'. Noch nicht bearbeitet sind: 

- Zeichenkette 

- Ganzzahl 

- üebertrage-1 

- Bilde-1 

- Bedingung 

- Zeige-1 

Fliesskommazahl 'nach' Variablenbezeichner 

Variablenbezeichner 'nach' 

Variablenbezeichner 

'nach' Variablenbezeichner 

L 

Variablenbezeichner Operator 
Variablenbezeichner 

' <' 

' < = ' 

' >' 

' >=' 

= Tastaturzeichen Zeichenkette 
L 
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'Tastaturzeichen' wollen wir nicht weiter definieren, 
sondern darunter alle von der Tastatur aus erzeugbaren 
Zeichen verstehen, außer den Anführungszeichen. 


Bleibt noch Ganzzahl, Fließkommazahl und Zeige-1. 


Ganzzahl 
Ganzzahl-1 

Ziffer 


::= Ziffer Ganzzahl-1 
::= Ziffer Ganzzahl-1 
; L 
::= ' 0 ' 

: ' 1 ' 

: ' 2 ' 


'9' 


Fließkommazahl ; 
Fließkommazahl-1 


Fließkommazahl-2 

Exponent 
Exponent-1 


Zeige-1 


Ganzzahl Fließkommazahl-1 

= '.' Ganzzahl Fließkommazahl-2 
Exponent 
L 

= Exponent 
L 

= 'e' Exponent-1 

= '+' Ganzzahl 
'-' Ganzzahl 
Ganzzahl 

= ' "' Zeichenkette ' '*' 
Variablenbezeichner 


Damit hätten wir die Sprache Miniatur durch eine Grammatik 
vollständig beschrieben. 

Wir haben sie enwickelt, indem wir die Möglichkeiten der 
Sprache durchgegangen sind in der Reihenfolge, wie wir sie 
in dem Buch aufgeschrieben haben. 

Um jedoch mit der Grammatik arbeiten zu können, wollen wir 
die Regeln und die Alternativen durchnummerieren und einen 
Index erstellen. 




DIE REGELN DER GRAMMATIK: 


01 Programm 'Programm' Programmbezeichner 'ist' 

Definitionsblock 'beginne' 

Anweisungsblock 'pende' Programmbezeichner 
'.' Unterprogramm EOF 

02 Unterprogramm ::= 'Unterprogramm' Unterprogramm¬ 
bezeichner 'ist' Anweisungsblock 
'uende' Unterprogrammbezeichner 
'.' Unterprogramm 


03 

04 Bezeichner 
04a Bezeichner-1 
05 

06 Buchstabe 


L 

Buchstabe Bezeichner-1 
Buchstabe Bezeichner-1 
L 

' a' 

'b' 

' c' 


: ' x' 

'y' 

: ' Z ' 

07 Definitionsblock Variablendefinition 

08 : L 

09 Variablendefinition ::= 'fliess' Variablenbezeichner 

Variablendefinition-2 
'.' Definitionsblock. 


10 

Variablendefinition-2 ::= ','Variablenbezeichner 

11 


Variablendefinition-2 

: L 

12 

Anweisungsblock ; 

::= Anweisung Anweisungsfolge 

13 

Anweisungsfolge : 

::= Anweisung Anweisungsfolge 

14 


: L 

15 

Anweisung 

::= 'leer' '.' 





16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


30 


31 


32 


33 


34 


35 


36 


'zeige' Zeige-1 '.' 

'zeigez' Zeige-1 
'Vorschub' '.' 

'schirmfrei' '.' 

'cuspalte' Ganzzahl 
'cuzeile' Ganzzahl 
'zeigeas' Ganzzahl 
'ausgabegeraet' Gerätebezeichner 
'rahmen' Farbbezeichner '.' 

'hintergrund' Farbbezeichner '.' 
'Schrift' Farbbezeichner'.' 

'hole' Variablenbezeichner '.' 
'uebertrage' Uebertrage-1 '.' 
'addiere' Variablenbezeichner 'zu' 
Variablenbezeichner nach 
Variablenbezeichner '.' 

'subtrahiere' Variablenbezeichner 
'von' Variablenbezeichner 'nach' 
Variablenbezeichner'.' 
'multipliziere' Variablenbezeichner 
'mit' Variablenbezeichner 
'nach' Variablenbezeichner '.' 
'dividiere' Variablenbezeichner 
'durch' Variablenbezeichner 'nach' 
Variablenbezeichner '.' 

'potenziere' Variablenbezeichner 
'mit' Variablenbezeichner 
'nach' Variablenbezeichner '.' 
'bilde' Funktionsbezeichner 
'von' Variablenbezeichner 
Bilde-1 '.' 

'wenn' Bedingung 'dann' 
Anweisungsblock 'sonst' Anwei¬ 
sungsblock 'wende' '.' 

'schleife' Schleifenbezeichner 
'ueber' Anweisungsblock 
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'sende' Schleifenbezeichner 


37 


'ausgang' Schleifenbezeichner 

'wenn' Bedingung '.' 

38 


: 'fuer' Variablenbezeichner 'von 



Variablenbezeichner 'bis' 



Variablenbezeichner 'wiederhole 



Anweisungsblock 'sende' '.' 

39 


: 'sprungmarke' Sprungbezeichner 

40 


: 'springe' Sprungbezeichner '.' 

41 


: 'rufe'Unterprogrammbezeichner 

42 

Uebertrage-1 

::= Fließkommazahl 'nach' 



Variablenbezeichner 

43 


: Variablenbezeichner 'nach' 



Variablenbezeichner 

44 

Bilde-1 

::= 'nach' Variablenbezeichner 

45 


: L 

46 

Bedingung 

::= Variablenbezeichner Operator 



Variablenbezeichner 

47 

Operator ::= 

' = ' 

48 



49 


'<' 

50 


'< = ' 

51 


' >' 

52 


' >=' 

53 

Zeichenkette 

::= Tastaturzeichen Zeichenkette 

54 


: L 

55 

Ganzzahl 

::= Ziffer Ganzzahl-1 

55a 

Ganzzahl-1 

::= Ziffer Ganzzahl-1 

56 


L 

57 

Ziffer 

::= '0' 

: ' 1 ' 


: ' 2 ' 

: '9' 

58 Fließkommazahl ::= Ganzzahl Fließkommazahl-1 

59 Fließkommazahl-1 ::= Ganzzahl Fließkommazahl-2 
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60 

61 

62 

63 

64 

65 

66 

67 

68 

69 


Fließkoinmazahl-2 : 


Exponent 

Exponent- 

Zeige-1 : 


Exponent 
L 

= Exponent 
L 

::= 'e' Exponent-1 
;:= Ganzzahl 

: Ganzzahl 

Ganzzahl 

= Zeichenkette'"' 

Variablenbezeichner 
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DER INDEX DER GRAMMATIK: 


Der Index ist wie folgt aufgebaut: 

Am Anfang der Zeile steht die Schlüssel-Nummer der Regel. 
Diese erscheint, wenn Sie sich während der syntaktischen 
Analyse den Stack ausgeben lassen. Dazu kommen wir aber noch 
später! 

Die Zahl danach gibt die Nummer der Regel an, mit der sie in 
der Grammatik definiert ist. Die Nummern nach dem 
Schrägstrich geben an, in welchen Regeln in der Grammatik 
diese Regel gebraucht wird. 


01 

Anweisung 

15/ 

12,3 




02 

Anweisungsblock 

12/ 

1, 

2, 35, 

36, 

38 


03 

Anweisungsfolge 

13/ 

12, 

13 




04 

Bedingung 

46/ 

35, 

37 




05 

Bezeichner 

4/ 

1, 

2, 4,9, 

10, 

23, 

24, 



29, 

30, 31, 

32, 

33, 

34, 



39, 

40, 41, 

42, 

43, 

44, 

24 

Bezeichner-1 

4a/ 

4, 

4a 




06 

Bilde-1 

44/ 

34 





07 

Buchstabe 

6/ 

4, 

4a 




08 

Definitionsblock 

7/ 

1; 





09 

Exponent 

64/ 

60, 

62 




10 

Exponent-1 

65/ 

64 





1 1 

Fließkommazahl 

58/ 

42 





12 

Fließkommazahl-1 

59/ 

58 





13 

Fließkommazahl-2 

62/ 

59 





14 

Ganzzahl 

55/ 

20, 

21 , 22 

, 58 

, 59, 

, 65 

23 

Ganzzahl-1 

55a/ 55 

1 , 55a 




15 

Operator 

47/ 

46 





16 

Programm 

1/ 







25, 

36, 

46 


66 


26, 

37, 


67 


27, 

38, 
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17 

Uebertrage-1 

42/28 


18 

Unterprogramm 

2/ 

1; 

2 

19 

Variablendefinition 


9/ 

20 

Variablendefinition-2 


10/ 

21 

Zeichenkette 

53/ 

53 

, 68 

25 

Zeige-1 

68/ 

16 

, 17 

22 

Ziffer 

57/ 

55 


26 

TastaturZeichen 

/ 

53 
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WIE ARBEITET DER ÜBERSETZER MIT DER GRAMMATIK? 


In diesem und den nächsten beiden Kapiteln wollen wir die 
Vorarbeiten leisten, die wir brauchen, um das Programm für 
die syntaktische Analyse zu schreiben. Ein Programm für die 
syntaktische Analyse nennt man 'Parser'. Wir wollen zunächst 
davon ausgehen, daß unser zu prüfendes Miniatur-Programm 
schon syntaktisch korrekt ist und uns zuerst um die Technik 
der Analyse bemühen, bevor wir uns der Behandlung von 
Fehlern zuwenden. 

Wie schon gesagt, orientiert sich der Parser an der 
Grammatik und an dem Index. Um die Methode der Analyse 
kennenzulernen, wollen wir folgendes kleine Programm parsen: 

10 Programm a ist 
20 beginne 
30 leer 
40 pende a. 

Wir wissen, daß jedes Miniatur-Programm der Regel 01 
'Programm' genügen muß. Diese Regel umfaßt die gesamte 
'Entwicklung' eines Miniatur-Programms, sei es auch noch so 
kompliziert aufgebaut. Der Parser nimmt also diese Regel als 
erste und 'merkt' sie sich. Nun taucht natürlich die Frage 
auf: Wie merkt der Parser sich diese Regel? 

Der Parser speichert die Regel in einem sogenannten 
'Stapelspeicher' oder auch 'Stack'. 

Nächste Frage: Was ist ein Stack und wie kann man ihn sich 
vorstellen? 
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Folgender Vorschlag: 


Stellen wir uns einen Aufzug in einem Wolkenkratzer vor, der 
nach dem folgenden Prinzip arbeitet: 

Es befinden sich nur zwei Knöpfe in der Kabine. 

Knopf 1: Einen Stock aufwärts. 

Knopf 2: Einen Stock abwärts. 

Startpunkt für eine Fahrt ist die Ebene 0. Von hier aus 
können wir jeweils einen Stock höher fahren und eine 
Information hinterlegen. Diese 'hinterlegte' Information 
vergessen wir, sobald wir das Stockwerk, in dem wir uns 
gerade befinden, verlassen. Fahren wir höher, so ist diese 
Information noch in dem Stockwerk vorhanden, aber wir können 
erst wieder auf diese Information zurückgreifen, wenn wir 
auf dieses Stockwerk zurückkommen. Informationen auf 
höherliegenden Stockwerken existieren für uns nicht. Zudem 
können wir nur ein Stockwerk höher fahren, wenn wir in dem 
momentanen eine Information abgelegt haben. Alle 
tieferliegenden Stockwerke sind somit lückenlos mit 
Informationen gefüllt. 

Diese 'Konstruktion' dient nur dem Zweck, daß wir uns 
Informationen merken können, die wir zu einem späteren 
Zeitpunkt noch benötigen. 

Merken wir uns doch die Regel 01 'Programm'! 

Es mag Sie vielleicht überraschen, aber der Parser merkt 
sich die Regeln von 'rechts nach links'. 
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Stockwerk 


Information 


Ebene O 


EOF 


Ebene 1 
Ebene 2 


Unterprogramm 


Ebene 10 


Ebene 6 


Ebene 4 


Ebene 5 


Ebene 3 


Ebene 7 


Ebene 8 


Ebene 9 


Programmbezeichner 
'pende' 

Anweisungsblock 
'beginne' 

Definitionsblock 
' ist' 

Programmbezeichner 
'Programm' 


Wir befinden uns im 10. Stockwerk und verfügen über die 
Information 'Programm'. Was machen wir nun mit dieser 
Information? 

Wir wissen, daß 'Programm' ein Terminal-Symbol ist. 
(Erinnern Sie sich noch an das Beispiel mit dem deutschen 
Satz?) Wir wissen weiter, daß jedes Miniatur-Programm mit 
'Programm' beginnen muß! Dieses wissen wir eben darum, weil 
die oberste Stockinformation ein Terminal-Symbol ist. 

Über diese Sätze lohnt es sich nachzudenken! Sie beinhalten 
das halbe 'Geheimnis' der Analyse. 
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DIE ANALYSESTRATEGIE 


Bei den Vorbereitungen zur Analyse hat sich der Parser diese 
Regel gemerkt und der Scanner wurde veranlaßt, das erste 
Token des MINIATUR-Programms bereitzustellen. Das erste 
Token unseres Programms ist aber 'Programm'. Der Parser hat 
jetzt nichts weiter zu tun, als das Terminal-Symbol 
'Programm' mit dem Token 'Programm' zu vergleichen. Da die 
beiden Informationen gleich sind, weiß der Parser, daß unser 
MINIATUR-Programm bis zum Wort 'Programm' den syntaktischen 
Regeln von MINIATUR entspricht. Das Token 'Programm' kann er 
deshalb vergessen und fordert vom Scanner das nächste Token 
an. Er erhält 'a'. Nun fährt er eine Etage tiefer, da die 
Information 'Programm' überflüssig geworden ist und er 
Informationen über die zukünftige mögliche Entwicklung von 
MINIATÜR-Programmen braucht. Er liest 'Programmbezeichner' 
in dem syntaktischen Sinne von 'Bezeichner'. 'Bezeichner' 
ist aber ein Nicht-Terminal-Symbol, das er nicht mit 'a' 
vergleichen kann. 'Bezeichner' gibt eine Regel an. 

Welche Strategie wendet er an? 

Er ersetzt den Namen 'Bezeichner' durch die entsprechenden 
Regeln, solange bis wieder ein Terminal-Symbol oberste 
Stackinformation ist. 

Die Regel für 'Bezeichner': 

04 Bezeichner Buchstabe Bezeichner 

05 : L 

Nun hat Der Parser hier zwei Möglichkeiten: 

Entweder er nimmt 'Buchstabe Bezeichner' oder 'L'. Wie 
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entscheidet er sich? 


Wie entscheidet er sich? 

Zu jeder Möglichkeit hat er eine Liste, in der aufgeführt 
ist, bei welchem momentanen Token welche Alternative gewählt 
werden muß. Wie der Parser zu dieser Liste kommt, wollen wir 
gleich besprechen. Um Sie ein wenig auf die Folter zu 
spannen und um den 'roten Faden' nicht zu verlieren, wollen 
Sie die Auswahl bitte solange in unsere Hände legen und 
darauf vertrauen, daß wir nicht irren. 

Der Parser wählt 04 'Buchstabe Bezeichner'. Er löscht Ebene 
9 und trägt die Kombination ein: 

Ebene 9 Bezeichner 
Ebene 10 Buchstabe 

Oberste Stackinformation ist nun Buchstabe. Unter Buchstabe 
verstehen wir alle Kleinbuchstaben und da 'a' ein 
Kleinbuchstabe ist, kann der Parser Buchstabe durch 'a' 
ersetzen und mit dem Token 'a' vergleichen. Da diese 
übereinstimmen, fordert er das nächste Token an und fährt 
eine Etage tiefer. Nächstes Token ist 'ist'. Auf Ebene 9 
steht 'Bezeichner'. 

Der Parser hat nun wieder die Wahl zwischen 'Buchstabe 
Bezeichner' und 'L'. Diesmal entscheidet er sich für 'L'. 
'L' bedeutet aber 'Löschen' bzw. eine Ebene tiefer fahren. 
Auf Ebene 8 findet er die Information 'ist', ein 
Terminal-Symbol. Also folgt der Vergleich mit dem Token. Da 
Gleichheit festgestellt wird, folgt . 

Das 'Spiel' der letzten Seiten geht nun solange weiter, bis 
der Scanner meldet 'End of File' (MINIATUR-Programm zu Ende) 
und der Parser auf Ebene 0 die Übereinstimmung feststellt. 
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Dann ist unser MINIATUR-Programm syntaktisch korrekt und der 
Parser hat seine Aufgabe beendet. 

Wir hoffen, daß es deutlich wurde, wie der Parser arbeitet. 
Sie sollten einmal versuchen, den Rest des Programms zu 
parsen. Falls Sie dann bei einer Regel nicht wissen, welche 
Alternative Sie nehmen sollen, probieren Sie einfach eine 
aus . 

Wie Sie sicher bemerkten, habe ich die Regel 'Bezeichner' 
nicht so aufgeführt, wie wir sie in der Grammatik vereinbart 
haben. Nehmen Sie jetzt bitte als Übung die richtige Regel 
und spielen den Fall noch einmal durch. 


Drei Fragen sind noch offen: 

- Wie gelangen wir zu der Liste, die die Auswahl 
der Alternativen steuert? 

- Wie behandelt der Parser fehlerhafte Programme? 

- Was muß der Parser tun, damit die Programme in 
Maschinensprache übersetzt werden können? 
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DIE AUSWAHL DER ALTERNATIVEN: 


Der Parser geht bei der Analyse wie folgt vor: 

Er sucht nach der obersten Stackinformation die Regel, die 
er anwenden muß. Dann schaut er sich das aktuelle Token an 
und wählt mit Hilfe einer Liste die Alternative aus. Zu 
jeder Alternative gibt es eine Liste von möglichen Token. 

Wie gelangen wir an die Listen? 

Die Token unseres Programmes sind immer Terminal-Smbole. Wir 
müssen zu jeder Alternative die Terminal-Symbole suchen, die 
als Erste bei der Anwendung der Alternative auftreten 
können. Dies ist schnell gesagt, die Aufgabe kann aber sehr 
umfangreich werden, besonders wenn man eine große Grammatik 
zu bearbeiten hat, bei der nur sehr wenige Alternativen mit 
Terminal-Symbolen beginnen. In einigen Büchern gibt es 
Vorschriften, die man anwenden kann und die immer zum Erfolg 
führen. Dies sind aber im Grunde nur Hinweise zur 
Arbeitstechnik, die dazu dienen können, ein Programm zu 
schreiben, welches die betreffenden Terminal-Symbole 
herausfindet. Jedoch erkennt man meist nicht mehr, worauf es 
'ankommt'. Man führt nur noch stupide Arbeiten aus. Wir 
wollen uns deshalb bei jeder Alternative überlegen, welche 
Terminal-Symbole Vorkommen können. 

Fangen wir also an und nehmen der Vollständigkeit halber die 
Regel 01 'Programm' mit auf, obwohl die Regel nie gewählt 
wird, da sie zu Beginn des parsens vorgegeben wird. 

Alternative Terminal-Symbole 

01 Programm 
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02 


Unterprogramm 

EOF 


03 


Ist eine Alternative leer, so müssen wir nachsehen, in 
welchen Regeln die betreffende Regel auftaucht und welches 
die ersten Terminal-Symbole sein können, die evtl, darauf 
folgen. Beispiel: Unterprogramm kommt nur in der Regel 
Progamm vor. Das einzige Terminal-Symbol, das folgen kann, 
ist die EOF-Marke. Daraus folgt: Ist das oberste 
Stack-Symbol 'Unterprogramm' und das aktuelle Token 
'Unterprogramm', so wird Alternative 02 gewählt. Ist das 
oberste Stack-Symbol 'Unterprogramm' und das aktuelle Token 
'EOF', so wird Regel 03 angewendet. 

04 Buchstabe 

04a Buchstabe 

05 ist, zu, nach, von, mit, durch 


ueber, wenn, bis, wiederhole '=', '/=', 

'<', '<=', '>=', dann 


Bitte verfolgen Sie einmal, wie wir auf die Terminal-Symbole 
von 05 gekommen sind! Nehmen Sie dazu auch den Index zu 
Hilfe. 


06 


Buchstabe 


07 


09 


08 


fliess 
beginne 
fliess 


10 


11 


12 


leer, zeige, zeigez, Vorschub, schirmfrei, 
cuspalte, cuzeile, zeigeas, ausgabegeraet, 
rahmen, hintergrund, schrift, hole. 


uebertrage, addiere, subtrahiere, 
multipliziere, dividiere, potenziere, bilde, 
wenn, schleife, ausgang, fuer, sprungmarke. 
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13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


springe, rufe 
wie 12 

pende, uende, sonst, wende,'.', sende 

leer 

zeige 

zeigez 

Vorschub 

schirmfrei 

cuspalte 

cuzeile 

zeigeas 

ausgabegeraet 

rahmen 

hintergrund 

Schrift 

hole 

uebertrage 

addiere 

subtrahiere 

multipliziere 

dividiere 

potenziere 

bilde 

wenn 

schleife 

ausgang 

fuer 

sprungmarke 

springe 

rufe 

Ziffer 

Buchstabe 

nach 

Buchstabe 
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48 

'/ = ' 

49 


53 

Tastaturzeichen ohne 

54 


55 

Ziffer 

55a 

Ziffer 

56 

'.', 'e', nach 

57 

Ziffer 

58 

Ziffer 

59 


60 

' e' 

61 

nach 

62 

' e' 

63 

nach 

64 

' e' 

65 


66 


67 

Ziffer 

68 


69 

Buchstabe 
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Das Erstellen dieser Listen scheint eine verwirrende Sache 
zu sein, aber es ist wirklich ganz einfach. Wir wollen es 
nochmal an einem Beispiel verdeutlichen: 

Alternative 56: 

Die Alternative ist leer, darum stellt sich die Frage: Was 
kann auf Ganzzahl-1 folgen? 

Ganzzahl-1 kommt nur in der Regel Ganzzahl vor und zwar als 
letztes Element. Darum stellt sich die Frage: Was kann auf 
Ganzzahl folgen? Laut Index kommt Ganzzahl in den 
Alternativen 20, 21, 23, 58, 59, 65, 66, 67 vor. In 20, 21, 
22 erscheint nach Ganzzahl der Punkt. 

In 58 kommt Ganzzahl vor der Regel Fließkommazahl-1. Die 
Nachfolger von Ganzzahl ergeben sich aus dieser Regel als 
die ersten Terminal-Symbole und da Fließkommazahl-1 auch die 
leere Alternative 61 umfaßt, auch als die nachfolgenden 
Terminal-Symbole von Fließkommazahl-1. 

Die ersten Terminal-Symbole wollen wir mit 'die Ersten' und 
die nachfolgenden Terminal-Symbole mit 'die Nachfolger' 
abkürzen. 

Die Ersten von Fließkommazahl-1 sind : '.' und das Erste von 

Exponent 'e'. Die Nachfolger von Fließkommazahl-1 ergeben 
sich zu den Nachfolgern von Fließkommazahl, da 
Fließkommazahl-1 nur als letztes Element in Fließkommazahl 
vorkommt. Fließkommazahl kommt aber nur in Alternative 42 
vor. Nachfolger ist 'nach'. 

Zwischenergebnis: Bis jetzt haben wir '.', 'e' und 'nach'. 

Bleiben noch 65, 66, 67 als zu betrachtende Alternativen. 
Alle drei hören mit Ganzzahl auf und gehören zu Esponent-1. 

Frage: Was sind die Nachfolger von Exponent-1? 

Antwort: Die Nachfolger von Exponent! 
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Frage: Was sind die Nachfolger von Exponent? 

Antwort: Die Nachfolger von Fließkommazahl-2 und 
Fließkommazahl-1! 

Frage: Was sind die Nachfolger von Fließkomazahl-2? 

Antwort: Die Nachfolger von Fließkommazahl-1! 

Dieses hatten wir weiter oben schon als 'nach' festgestellt. 

So fügt man mit einfachen Überlegungen die Listen zusammen. 
Es wird aber auch deutlich, daß man sich bei größeren 
Grammatiken Techniken überlegen muß, um fehlerfrei ans Ziel 
zu kommen. Bei der bisherigen Diskussion haben wir noch 
nicht erwähnt, daß der Parser nur dann immer genau weiß, 
welche Alternative er wählen soll, wenn die Listen zu den 
Alternativen einer Regel alle verschiedenen Token enthalten. 
Dies ist übrigens die 'Nagelprobe' für die Grammatik. Kommen 
in den Listen zu den Alternativen einer Regel gleiche Token 
vor, so müssen wir entweder unsere Grammatik ändern oder uns 
eine andere Analysemethode suchen. 
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DIE BETRACHTUNG FEHLERHAFTER PROGRAMME: 


Bis jetzt sind wir davon ausgegangen, daß unser 
Miniatur-Programm syntaktisch korrekt ist. Sind in einem 
Programm syntaktische Fehler, so haben wir zwei 
Möglichkeiten, diese zu behandeln. 

1) Wir geben den gefundenen Fehler aus und brechen die 
syntaktische Analyse ab. 

2) Wir versuchen, die syntaktische Analyse wieder auf¬ 
zunehmen, um auch den Rest des Programms zu prüfen. 

Möglichkeit 1 halten wir für nicht dikutabel. Stellen wir 
uns vor, in einem Programm sind 20 Fehler, dann brauchen wir 
mindestens 21 Versuche, bis wir wissen, daß wir ein 
syntaktisch korrektes Programm haben. 

Versuchen wir also die Möglichkeit 2 zu realisieren. 

Wie bemerkt der Parser, daß ein Programm fehlerhaft ist? 
Dies kann in zwei Situationen geschehen: 

1) Das oberste Stack-Symbol ist ein Terminal-Symbol. 

Das momentane Token stimmt nicht mit dem Terminal- 
Symbol überein. 

Beispiel: Wir haben uns vertippt und 'progrom' statt 
'Programm' geschrieben. 

2) Der Parser sucht in einer Regel nach der passenden 
Alternative und findet das aktuelle Token in keiner 
Liste. 

Beispiel: Wir haben vergessen, einen Programmbe¬ 
zeichner anzugeben: Programm ist ... . 

Das aktuelle Token ist dann 'ist'. Der 
Parser erwartet aber einen Bezeichner, 
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d.h. einen Buchstaben. 


Überlegen wir, welche Strategien wir in 1) und 2) einsetzen 
wollen: 

Grundsätzlich gilt, daß wir ein Stück des zu prüfenden 
Programms nicht prüfen können, da der Stackinhalt mit der 
Programmstruktur nicht übereinstimmt. Wir müssen versuchen, 
den Stack und das Programm wieder so aufeinander 
abzustimmen, daß die Analyse wieder aufgenommen werden kann. 

Zur Situation 1) 

Hier wissen wir genau, welches Symbol der Parser erwartet 
hat und was er statt dessen angeboten bekam. Wir können eine 
sehr präzise Fehlermeldung machen. Zudem können wir 
versuchen, das erwartete Symbol im Programm zu finden, indem 
wir vom Scanner neue Token anfordern. Bei einem Tippfehler 
können wir aber 'Pech' haben und wir finden das erwartete 
Symbol nicht. Um dem vorzubeugen, suchen wir höchstens bis 
zu dem nächsten '.', da der Punkt in Miniatur Anweisungen 
abschließt, die wir als kleine syntaktische Einheiten 
ansehen können. Danach müssen wir nun noch den Stack 
anpassen, indem wir diesen von oben her löschen, bis wir 
auch auf einen '.' stoßen. Damit wären Stack und Programm 
aufeinander abgestimmt und die Analyse kann weitergehen. 

Zur Situation 2) 

Hier können wir eine Liste der Token angeben, die in der 
syntaktischen Analyse weitergeholfen hätten. 

An dieser Stelle wollen wir wie folgt Vorgehen: 

Wir gehen im Stack nach unten und suchen das nächste 
Terminal-Symbol , lesen unser Programm weiter, um 
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festzustellen, ob dieses Terminal-Symbol vorkommt. Wir lesen 
aber höchstens bis zum nächsten Punkt. Falls wir bis zu 
einem Punkt lesen, gehen wir im Stack soweit herunter, bis 
wir ebenfalls einen Punkt finden. Damit hätten wir wieder 
eine 'Abstimmung' herbeigeführt. 


Sie werden vielleicht sagen, daß dieses sehr rauhe 
Strategien seien, die nicht immer zum Erfolg führen. 
Außerdem ist die Möglichkeit völlig unberücksichtigt, daß 
der Rechner eine selbständige Fehlerkorrektur ausführen 
könnte. Wir stimmen Ihnen dann zu, aber wir werden die 
Fehlerbehandlung so im Programm absetzen, daß Sie dort 
eigene Ideen leicht in die Tat umsetzen können, falls der 
Speicherplatz ausreicht. Es gibt Übersetzer, bei denen die 
Fehlerkorrektur den gleichen Umfang hat, wie die Analyse 
selbst. Bei einem Mikro-Rechner muß man gerade in diesem 
Punkt Kompromisse eingehen. 

Weitere Aufgaben : 

Wir können nun bereits von jedem Miniatur-Programm 
feststellen, ob es syntaktisch korrekt ist. Nach der 
syntaktischen Prüfung folgt die semantische Prüfung und die 
Codegenerierung. Damit die semantische Prüfung überhaupt 
stattfinden kann, müssen wir während der syntaktischen 
Prüfunge Informationen an die semantische Prüfung 
weitergeben. Da wir bei der syntaktischen Analyse die 
Struktur des Programms erkunden, sollten wir diese 
Information nutzen. Die Struktur des Programms ergibt sich 
aus dem Weg, den der Parser durch die Grammatik wählt. 
Nutzen wir darum die Grammatik als Informationsquelle. Dazu 
erweitern wir die Grammatik um Symbole, die wir zwar in die 
Grammatik einflechten, die aber die syntaktische Analyse 
nicht beeinflussen. Diese semantischen Symbole bekommen eine 
besondere Kennzeichnung. Erscheint ein semantisches Symbol 
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als oberste Stackinformation, so erkennt der Parser dieses 
und verzweigt in ein Unterprogramm, welches dieses Symbol 
verarbeiten kann. Im Anschluß daran wird dieses Symbol vom 
Stack entfernt und der Parser setzt seine Arbeit fort. 


Die Unterprogramme für die semantischen Symbole führen zwei 
Dinge aus: 

1) Sie sammeln Informationen. 

2) Sie geben Informationen aus. 

Die Ausgabe der Informationen erfolgt auf die gleiche Datei, 
auf die wir schon die Zeilennummern geschrieben haben. Auf 
dieser Datei sammeln sich alle Informationen, die wir 
benötigen, um unser Miniatur-Programm in ein 

Maschinenprogramm umzuwandeln. Welche genauen Informationen 
wollen wir nun ausgeben? 

Dazu müssen wir noch einmal durch die Grammatik gehen und zu 
jeder Alternativen überlegen, was wir tun wollen. 

Die semantischen Symbole setzen wir in runde Klammern. 


01 Programm 
Anfang) 


'Programm' (Programmbezeichner Definition) 
Programmbezeichner 'ist' (Definitionsteil 

Definitionsblock (Definitionsteil Ende) 
'beginne' Anweisungsblock 'Pende' (Programm¬ 
bezeichner Prüfung) Programmbezeichner '.' 
Unterprogramm (Programm Ende) EOF 


Wird nun diese Regel bearbeitet, so geschieht folgendes: 


Ausgabe der Information: 'Programmbezeichner Definition', 
anschließend wird der betreffende Bezeichner ausgegeben 
(siehe 04, 05!). Bei der semantischen Prüfung wird dieser 
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dann in eine Liste eingetragen und als Programmbezeichner 
gekennzeichnet. 

'Definitionsteil Anfang' hat zum Ziel, daß alle 
nachfolgenden Bezeichner ebenfalls in die Liste eingetragen 
werden. 

Nach 'Definitionsteil Ende' dürfen keine Variablen mehr 
erklärt werden und alle vorkommenden müssen in der Liste 
enthalten sein. 

Der Bezeichner nach 'Programmbezeichner Prüfung' muß in der 
Liste als Programmbezeichner vereinbart sein. 

Die Aufgaben der semantischen Prüfung und der 
Codegenerierung werden wir im einzelnen im nächsten Kapitel 
erläutern. 

Erweitern wir hier jetzt die Grammatik, damit wir das 
Programm für den Parser schreiben können. 


02 Unterprogramm 


03 

04 Bezeichner 

04a Bezeichner-1 

05 

06 Buchstabe 


'Unterprogramm' (Unterprogramm¬ 
bezeichner Definition) 
Unterprogrammbezeichner 
'ist' Anweisungsblock 'uende' (Unter¬ 
programmbezeichner Prüfung) 
Unterprogrammbezeichner '.' Unter¬ 
programm 
L 

(Buchstabe merken) Buchstabe 
Bezeichner-1 

(Buchstabe merken) Buchstabe 
Bezeichner-1 
(Bezeichner ausgeben) L 
a , b , . . . , z 
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07 

08 

09 


10 

1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


Definitionsblock ::= Variablendefinition 
: L 

Variablendefinition ::= 'fliess' Variablenbezeichner 

Variablendefinition-2 
' . ' Definitionsblock 

Variablendefinition-2 ;:= Variablenbezeichner 

Variablendefinition-2 
L 

Anweisungsblock ::= Anweisung Anweisungsfolge 

Anweisungsfolge ::= Anweisung Anweisungsfolge 

: L 

Anweisung ::= 'leer' 

: (Ausgabe) 'zeige' Zeige-1 

: (Ausgabe mit Vorschub) 'zeigez' 

Zeige-1 '.' 

'Vorschub' '.' 

: (schirmfrei) 'sohirmfrei' 

: (Cursorspalte) 'cuspalte' '.' 

: (Cursorzeile) 'cuzeile' Ganzzahl 

: (Ausgabe ASCII) 'zeigeas' Ganzzahl 


23 

24 

25 

28 


(Gerät) 'ausgabegeraet' 
Gerätebezeichner '.' 

(Rahmen) 'rahmen' Farbbezeichner '. 
(Hintergrund) 'hintergrund' 
Farbbezeichner '.' 

(Schrift) 'schrift' Farbbezeichner 


27 

28 

29 

30 


(Eingabe) 'hole' Variablenbe¬ 
zeichner ' . ' 

(Übertrage) 'uebertrage' 
Uebertrage-1 '.' 

(Addiere) 'addiere' Variablen¬ 
bezeichner 'zu' Variablenbezeichner 
'nach' Variablenbezeichner '.' 
(subtrahiere) 'subtrahiere' 
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Variablenbezeichner 'von' Variablen 
bezeichner '.' 

(multipliziere) 'multipliziere' 
Variablenbezeichner 'mit' Variablen 
bezeichner 'nach' Variablenbezeich¬ 
ner ' . ' 

(dividiere) 'dividiere' Variablen¬ 
bezeichner 'durch' Variablenbe¬ 
zeichner ' . ' 

(potenziere) 'potenziere' Variablen 
bezeichner 'mit' Variablenbe¬ 
zeichner 'nach' Variablenbezeichner 

(bilde) 'bilde' Funktionsbezeichner 
'von' Variablenbezeichner 
Bilde-1 (Punkt) '.' 

(Entscheidung) 'wenn' Bedingung 
'dann' Anweisungsblock (sonst) 
Anweisungsblock 'wende' 
(Entscheidungsende) '.) 

'schleife' (Endlosschleife) 'ueber' 
Anweisungsblock 'sende' 

(Endlosschleifenende) 
Schleifenbezeichner '.' 

(Ausgang) 'ausgang' Schleifenbe¬ 
zeichner 'wenn' Bedingung '.' 
(Indexschleife) 'fuer' Variablenbe¬ 
zeichner 'von' Variablenbezeichner 
'bis' Variablenbezeichner 
'wiederhole' (Schleifenanfang) 


40 



(springe) 'springe' Sprungbe¬ 
zeichner ' . ' 

41 



(rufe) 'rufe' Unterprogrammbe¬ 




zeichner ' . ' 

42 

Uebertrage-1 : 

= 

'Fließkommazahl 'nach' Variablen¬ 




zeichner 

43 



(Variable) Variablenbezeichner 'nach 




Variablenbezeichner 

44 

Bilde-1 : 

= 

(bilde-1) 'nach' Variablenbezeichner 

45 



L 

46 

Bedingung : 


Variablenbezeichner Operator 

Variablenbezeichner 

47 

Operator : 

= 

(Operator=) '=' 

48 



(Operator/=) '/=' 

49 



(Operator ) '<' 

50 



(Operator =) '<=' 

51 



(Operator ) '>' 

52 



(Operator =) '>=' 

53 

Zeichenkette : 

= 

(Zeichen merken) Tastaturzeichen 




Zeichenkette 

54 



(Zeichenkette ausgeben) L 

55 

Ganzzahl 

= 

(Ziffer merken) Ziffer Ganzzahl-1 

55a 

Ganzzahl-1 ; 

= 

(Ziffer merken) Ziffer Ganzzahl-1 

56 



(Ganzzahl ausgeben) L 

57 

Ziffer : 

= 

'0', '1', '2', '9' 

58 

Fließkommazahl: 

= 

Ganzzahl Fließkommazahl-1 

59 

Fließkommazahl-1 

::= (Dezimalstellen) Ganzzahl 




Fließkommazahl-2 

60 



Exponent 

61 



(kein Exponent) L 

62 

Fließkommazahl-4 

l 

::= Exponent 

63 



(kein Exponent) L 

64 

Exponent 

= 

(Exponent) 'e' Exponent-1 

65 

Exponent-1 

= 

(plus) '+' Ganzzahl 

66 



(minus) '-' Ganzzahl 

67 



Ganzzahl 
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68 Zeige-1 

69 


' "' Zeichenkette '" 
Variablenbezeichner 


Die Grammatik können wir dem Parser nicht in dieser Form 
mitteilen. Wir werden dazu die Terminal-Symbole, die 
Nicht-Terminal-Symbole und die Semantik-Symbole in Zahlen 
codieren. 

Für die Terminal-Symbole werden wir die Nummern aus dem 
Kapitel 'Lexikalische Analyse' nehmen. Für die 
Nicht-Terminal-Symbole, die Zahlen aus dem Index zur 
Grammatik und die Zahlen für die semantischen Symbole werden 
wir jetzt festlegen; 


Zahl 


Symbol 


1 Programmbezeichner Definition 

2 Definitionsteil Anfang 

3 Definitionsteil Ende 

4 Programmbezeichner Prüfung 

5 Programm Ende 

6 Unterprogrammbezeichner Definition 

7 Unterprogrammbezeichner Prüfung 

8 Ausgabe 

9 Ausgabe mit Vorschub 

10 Vorschub 

11 Schirmfrei 

12 Cursorspalte 

13 Cursorzeile 

14 Ausgabe ASCII 

15 Gerät 

16 Rahmen 

17 Hintergrund 

18 Schrift 

19 Eingabe 

20 Übertrage 
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21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


addiere 

subtrahiere 

multipliziere 

dividiere 

potenziere 

bilde 

Punkt 

Entscheidung 

sonst 

Entscheidungsende 

Endlosschleife 

Endlosschleifenende 

Ausgang 

Indexschleife 

Schleifenanfang 

Indexschleifenende 

Sprungmarke 

springe 

rufe 

Fließkommazahl 
Variable 
bilde-1 
Operator = 

Operator /= 

Operator < 

Opertor <= 

Operator > 

Operator >= 

Dezimalstellen 

kein Exponent 

Exponent 

plus 

minus 

Buchstabe merken 
Bezeichner ausgeben 
Zeichen merken 
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57 

58 

59 


Zeichenkette ausgeben 
Ziffer merken 
Ganzzahl ausgeben 


Damit der Parser immer entscheiden kann, was für ein Symbol 
gerade oben im Stack steht, wollen wir wie folgt Vorgehen: 

Terminal-Symbole werden als Zahl abgespeichert. 
Nicht-Terminal-Symbole werden in zwei 'Ebenen' 

abgespeichert: 

Die untere Ebene enthält die Nummer des Symbols. 

Die obere Ebene enthält die Schlüsselzahl 253. 

Semantische Symbole bis zur Nummer 53 einschließlich 
erhalten als Vorschub die Schlüsselzahl 252, ab Nummer 54 
die Schlüsselzahl 251. Bis zur Nummer 53 reicht die Ausgabe 
der Nummer, ab 54 müssen zusätzliche Dinge getan werden. 

Die verschlüsselte Regel 01 sieht dann so aus: 

148, 252, 1, 253, 5, 141, 252, 2, 253, 8, 252, 3, 131, 253, 

2, 146, 252, 4, 253, 5, 46, 253, 18,. 252, 5, 254. 
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DER PARSER 


Jetzt sind wir soweit, daß wir den Parser programmieren 
können. Nachdem wir bei der lexikalischen Analyse jeden 
Schritt erläutert haben möchten wir uns bei den folgenden 
Programmen kürzer fassen. Dies können wir schon deshalb, 
weil die Programmschritte ja ausgiebig diskutiert sind. 

Alle Regeln der Grammatik werden in einem 
Zeichenkettenbereich abgelegt, so daß wir bei Anwendung 
einer Regel nur die entsprechenden Variableninhalte auf den 
Stack zu übertragen haben. Da wir die Wertzuweisung für die 
einzelnen String-Variablen nicht direkt vornehmen können, 
speichern wir die Alternativen in Datazeilen ab und 
übertragen dann den Inhalt in die Variablen. 

Die Grammatik finden Sie in den Zeilen 49000 bis 50000. 

Zeilen 10040 bis 10670 : 

Der Parser hat einen Fehler gefunden und reagiert 
entsprechend unserer Strategie. Das oberste Stacksymbol 
enthält die Information, welche Symbole möglich sind. 

Zeilen 11000 bis 14630 : 

Das oberste Stacksymbol ist eine Regel und der Parser prüft, 
welche Alternative er wählen muß. 

Verfolgen Sie einmal für das kleinste MINIATUR-Programm den 
Weg durch den Parser. Sie werden dann sehen, wie einfach die 
Programmanalyse geworden ist. 
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Das Listing des Parsers 


10 rem programm fuer die lexikalische 
20 rem und syntaktische analyse 

30 rem von miniatur - Programmen 

40 rem — 

50 rem Vereinbarungen 

60 rem 
70 : 

BO -flon-B 
90 be«15 
100 in«B 
110 ou«7 
120 pr=3 

130 i !:$=:•"' : 12:$="" : 13$="" 

140 il=0 : i2=0 : i3=0 

150 en=0 : em$="" : et=0 : es=0 

160 dim ba$(75) : rem klartext basic-worte 

170 dim mi$(4B> : rem klartext miniatur~worte 

180 t$="" 8 t=0 

190 a=0 8 b=0 8 c=0 8 d=0 

200 dim al$<69) 8 rem grammatik regeln 

210 z=0 8 z7.=0 8 rem lokale variablen 

220 sg=1000 s rem stack groesse 

230 dim s7. (sg) 8 rem stack 

240 3=0 8 rem stack zeiger 

250 al=l 8 rem zeiger auf momentane alternative 

260 al7.«0 8 rem laenge von al 

270 t9“0 8 rem lokaler schleifenindex 

280 tl=l 8 g$="" 8 g=0 

290 0=0 8 rem oberstes stacksymbol 

300 bu$="" 8 rem variable fuer action 

310 fe=0 8 rem fehlervariable 
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320 zn=«0 : rem flag -fuer zei 1 enan-fang 
1000 rem — 

1010 rem Vorbereitungen 
1020 rem — 

1030 ! 

1040 printchr:$:(14) 

1050 printsprint"Der MINIATUR-Uebersetzer :":print 
1060 print"Protokol1 auf Drucker oder Schirm (d/s)?" 
1070 get il$ t if il^:="d" or ilt="s" then 1090 
1080 goto 1070 
1090 if il:$:="d'' then pr=4 

1100 open pr,pr,7 s rem oeffnen ausgabekanal 
1110 print:print"Bitte Datendiskette einlegen." 

1120 print"Weiter mit Return !":print 

1130 get il;$: : if i l$<>chr-f (13) then 1130 

1140 print"Welches Programm soll uebersetzt werden?" 

1150 input "Name ";i2$ 

1160 open be,fl,be 
1170 print#be,"i" 

1180 print#be,"s:miniatur-syn" 

1190 i nput#be, en , em:$, et, es 

1210 open i n , f 1 , i n , "Os "+i 2'4f+" ,p , r " : gosub 60000 
1220 get#in,i l-4:-,i 1^ 

1230 open ou,f1,ou,"0:miniatur-syn,s,w" : gosub 60000 
1240 gosub 59000 
1245 gosub 58000 

1250 gosub 51500 i gosub 51500 s gosub 51000 
1260 gosub 49000 s rem grammatik laden 
1270 gosub 42000 8 rem erstes Zeichen stellen 
1280 gosub 41000 s rem erste alternative laden 
2000 rem parser schleife 
2010 0=37. (s) 

2020 a1=255 

2030 if 0=251 then goto 38000 
2040 if 0=252 then goto 39000 
2050 if 0=253 then goto 10000 
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2060 i-f s7. (s)=255 and g=255 then goto 35000 

2070 if s7. (s)=g then gosub 40000 : gosub42000 : goto 2000 

2080 print#pr,chr$(13)"Fehler !" 

2085 if s7.(s)=255 then print#pr,"EB wird EOF erwartet." 

2086 i-f b7. (s>=255 then print#pr , " Ich beende das Programm. 

3 goto 35000 

2090 i-f b7.(s>>127 then print#pr,"EB wird " ji mi $ (s7. <b) -128) 
erwartet." 

2100 i-f s7. <b)<128 then print#pr,"EB wird ";s;" erwartet." 

2110 goto 10400 

10000 rem alternative suchen 

10010 o“b7. (b-I) 

10020 goBLib 11000 

10025 if al=255 then goto 10040 

10030 if 1en(al$(al))<>0 then gosub 40000 : gosub 41000 
8 goto 2000 

10035 gosub 41000 : goto 2000 
10040 print#pr ,chr.$: (13) 

10050 print#pr,"Fehl er !" 

10060 print#pr,"Keine Alternative moeglich !" 

10070 print#pr,"Es wurde eines der folgenden Symbole 
erwartet s" 

10080 if o=loro=2oro=3 then print#pr,"1eer zeige zeigez 
Vorschub schirmfrei "j 

10090 if o=loro“2oro=3 then print#pr,"cuspalte cuzeile 
zeigeas ausgabegeraet "; 

10100 if o=loro=2oro«3 then printttpr,"rahmen hintergrund 
Schrift hole "; 

10110 if o=loro=2oro=3 then pri nt#pr , "Lieber trage addiere 
subtrahiere "; 

10120 if o-loro=2oro==3 then pr i nt#pr , "mul ti pl i z i ere 
dividiere potenziere "; 

10130 if o=loro==2oro=3 then pri ntttpr , "bi 1 de wenn schleife 
ausgang fuer "j 

10140 if o=loro=2oro=3 then printttpr,"sprungmarke springe 
rufe "5 
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10150 i-f 0=4 or o=5 or o=24 or 0=6 or o=17 or o=25 then 
print#pr,"buchstabe 

10160 if 0=24 or o=15 then print#pr,”= /=<<=> >= 

10170 i-f 0=24 then print#pr, "ist zu von mit durch ueber 
wenn bis "j 

10180 i-f 0=24 then print#pr , "wiederhole dann "? 

10190 if 0=24 or o=20 then print#pr,", 

10200 if 0=24 or o=20 or o=3 or o =6 or o=23 or o=12 then 
printttpr,". 

10210 if 0=16 then printttpr,"programm " j 
10220 if 0=18 then print#pr,"Unterprogramm eof "3 
10230 if 0=7 or o=19 then print#pr,"f 1 i ess "5 
10240 if 0=8 then print#pr,"beginne 

10250 if 0=17 or o=14 or o»23 or o=22 or o=ll or o“10 then 
print#pr,"Ziffer "p 

10260 if 0=6 or o=23 or 0=12 or o=13 then print#pr,"nach "p 
10270 if 0=3 then print#pr,"pende uende sonst wende 
sende "p 

10280 if 0=21 then print#pr," tastaturzeichen-ohne- 
anfuehrungszeichen "p 

10290 if 0=21 or o=25 then print#pr,"anfuehrungszeichen "p 
10300 if 0=23 or o=12 or o=13 or o=9 then print#pr,"e "p 
10310 if 0=10 then print#pr,"+ - "p 
10400 fe“fe-+-l 
10405 printttpr, 

10410 print#pr,"Im Weiteren wurde folgendes Symbol 
erwartet :"p 

10420 if b7.(s)>250 and b>«2 then b=b~2 a goto 10420 
10430 if s<=0 then 35000 

10440 if s*/. <s)>127 then printttpr," " p mi <s'/. (b) "128) 

10450 if 37 .<s)<128 then print#pr," "ps 
10460 print#pr,"Weiter mit <RETURN>" 

10470 get em-^ a if em^Ochr*^ < 13) then 10470 
10480 print#pr,"Suche im Programm ob "p 
10490 if 37.(3) >127 then printttpr ,mi4f <37. (3)-128) p 
10500 if b7.(s)<128 then print#pr,Bp 
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10510 print#pr," erscheint." 

10520 print#pr,"Suche hoechstens bis zum naechsten" 

10530 pr i nt#pr , "Pun^^t oder Zeilenbeginn." 

10540 if nzOl then if g<>46 then if gOs"/. (s) then 
gosub 42000 : goto 10540 
10545 printttpr, 

10550 if nz=l then print#pr,"Habe bis zur naechsten Zeile 
gelesen!" 

10560 if g=s7. (s) and s7. (b)> 127 then print#pr , "Habe " 

; mi (b 7. (s) -*128) ; " gefunden. " 

10570 if g=s7. (s> and s7, (s)<128 then pr i nt#pr , "Habe " ji s 
gefunden." 

10580 if g=s7.(s) then print#pr, "Setze syntaktische 
Pruefung fort." 

10590 if g=B7. (s) then gosub 40000 : gosub 42000 i goto 2000 
10600 if g«46 then printttpr,"Habe bis zum Punkt gelesen." 
10610 print#pr,"Versuche neu anzusetzen und" 

10620 print#pr,"in der syntaktischen Pruefung" 

10630 print#pr,"fortzufahren." 

10640 if s7.(s)>250 and s>»2 then s“s~2 s goto 10640 
10650 if B<«0 then 35000 

10660 if b 7. <s)<>46 then s=s-l b goto 10640 
10670 gosub 42000 s gosub 40000 a goto 2000 
11000 rem Verzweigung zu den alternativen 
11010 on int(o/10> goto 11030,11040 

11020 on o goto 12100,12200,12300,12400,12500,12600,12700 
,12800,12900 

11030 on 0-9 goto 13000,13100,13200,13300,13400,13500,13600 
,13700,13800,13900 

11040 on 0-19 goto 14000,14100,14200,14300,14400,14500,14600 
11050 pr i nt#pr , chr.^ < 13) "Dl ese Regel gibt es nicht!" 

11060 stop 

12000 rem auswahl der alternative 
12100 rem 701/ anweisung 
12105 if g=142 then al»=15 8 return 
12110 if g = 167 then al'=16 s return 
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12115 

12120 

12125 

12130 

12135 

12140 

12145 

12150 

12155 

12157 

12160 

12162 

12164 

12166 

12168 

12170 

12172 

12174 

12176 

12178 

12180 

12102 

12184 

12186 

12188 

12190 

12200 

12210 

12220 

12230 


if 

g»168 

then 

al«17 

return 

if 

g'“164 

then 

al«>18 

return 

if 

g=152 

then 

al»19 

return 

if 

g« 133 

then 

al “20 

return 

if 

g“134 

then 

al “21 

return 

if 

g“169 

then 

al“22 

return 

if 

g = 129 

then 

al“23 

return 

if 

g«=149 

then 

al“24 

return 

if 

g«139 

then 

al“25 

return 

if 

g»151 

then 

al“26 

return 

if 

g=140 

then 

al“27 

return 

if 

g«160 

then 

al“28 

return 

if 

g = 128 

then 

al“29 

return 

if 

g»158 

then 

al“30 

return 

if 

g=>144 

then 

al “31 

return 

if 

g“137 

then 

al“32 

return 

if 

g = 147 

then 

al“33 

return 

if 

g«132 

then 

al“34 

return 

if 

g“166 

then 

al“35 

return 

if 

g»153 

then 

al“36 

return 

if 

g“130 

then 

al “37 

return 

if 

g«171 

then 

al“38 

return 

if 

g«>157 

then 

al“39 

return 

if 

g=156 

then 

al“40 

return 

if 

g=150 

then 

al“41 

return 


return 

rem /02/ anweisungsblQck 
goföub 12100 
i-f al<>255 then al«12 
return 
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12300 

rem /03/ 

anweisungsfolge 

12310 

gosub 12100 


12320 

if g=146 

then al=14 : 

return 

12330 

if g=161 

then al«14 ; 

return 

12340 

if g»135 

then al=14 : 

return 

12350 

if g=165 

then al=14 s 

return 

12360 

if g=46 

then al«14 : 

return 

12370 

if g«154 

then al«14 : 

return 

12380 

if al<>255 then al“13 

: retui 

12390 

return 



12400 

rem /04/ 

bedingung 


12410 

if g>64 

and g<91 then 

al«46 

12420 

return 



12500 

rem /05/ 

beseichner 


12510 

if g >64 

and g<91 then 

al «4 

12520 

return 



12600 

rem /06/ 

bilde-1 


12610 

if g“145 

then al®44 s 

return 

12620 

if g=46 

then al“45 i 

return 

12630 

return 



12700 

rem /07/ 

buchstabe 


12710 

al«6 



12720 

return 



12800 

rem /OB/ 

definitionsblock 

12810 

if g>=>138 

then al'«7 


12820 

if g«131 

then al“8 


12830 

return 



12900 

rem /09/ 

exponent 


12910 

if g=69 

then al»64 


12920 

return 



13000 

rem /lO/ 

exponent-1 


1301Ö 

if g»43 

then al»65 


13020 

if g«45 

then al“66 


13030 

if g>47 

and g<58 then 

al«67 

13040 

return 



13100 

rem /ll/ 

f1iesskommazahl 
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13110 

if g>47 

and g<5B then 

al=58 

13120 

return 



13200 

rem /12/ 

f1iesskommazahl-1 

13210 

if g*46 

then al=*59 


13220 

if g=69 

then al«60 


13230 

if g«145 

then al»61 


13240 

return 



13300 

rem /13/ 

f1iesskommazahl -2 

13310 

if g«69 

then al«62 


13320 

if g»145 

then al=63 


13330 

return 



13400 

rem /14/ 

ganzzahl 


13410 

if g>47 

and g<58 then 

al*-55 

13420 

return 



13500 

rem /15/ 

□perator 


13510 

if g»«61 

then al“47 b i 

return 

13520 

if g=174 

then 31=48 a 

return 

13530 

if g«60 

then al=49 i 

return 

13540 

if g«175 

then al=50 i 

return 

13550 

if g»62 

then al«51 i 

return 

13560 

if g“176 

then al«52 a 

return 

13570 

return 



13600 

rem /16/ 

Programm 


13610 

if g»148 

then al=l 


13620 

return 



13700 

rem /17/ 

uebertrage-l 


13710 

if g>47 

and g<58 then 

al «42 

13720 

if g>64 

and g<91 then 

al=43 

13730 

return 



13800 

rem /18/ 

Unterprogramm 

13810 

if g=162 

then al“2 


13820 

if g«255 

then al=3 


13830 

return 



13900 

rem /19/ 

Variablendefinition 

13910 

if g»138 

then al=9 


13920 

return 




return 
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14000 rem /20/ variablendefinition~2 
14010 ii g“44 then al««10 
14020 1-f g«46 then al“ll 
14030 return 

14100 rem /21/ zeichenkette 

14110 if g<>34 then al»53 

14120 if g«=34 then al=54 

14130 return 

14200 rem /22/ Ziffer 

14210 al«>57 

14220 return 

14300 rem /23/ ganzzahl-1 

14310 if g>47 and g<58 then al«5S 

14320 if g«46 or g*69 or g=i4;!5 then al«56 

14330 return 

14400 rem /24/ bezeichner-1 

14410 if g>64 and g<91 then al“4 s return 

14420 if g«141 or g“46 or g“44 or g‘“170 or g“145 then al“S 
8 return 

14430 if g«163 or g“143 or g“136 or g“159 or g«166 then al«5 
8 return 

14440 if g“172 or g«173 or g"135 or g'=174 or g“17S then al“5 
8 return 

14450 if g«176 or g«60 or g=61 or g'=62 then al®5 8 return 

14460 return 

14500 rem /25/ zeige-1 

14510 if ga34 then al«68 8 return 

14520 if g>64 and g<91 then al=69 8 return 

14530 return 

14600 rem /26/ tastaturzeichen 

14610 if g<>34 then al»57 8 return 

14620 al«6 

14630 return 

35000 rem programmende 

35010 pr i nt#pr , chr<^ < 13) chr:$: (13) "Syntakti sehe Pruefung 
abgeschlossen." 
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35020 i-f feOO th©n print#pr,"Ea wurden b ">fe| " Fehler 
bearbeitet." 

35030 if fe=0 then print#pr ,chr:> < 13) "Programm syntaktiech 
korrekt." 

35040 print#ou,chr$(255)ehrt(255)p 

35050 dose pr : dose in i dose ou b dose be 

35060 end 

38000 rem ausgabe -fuer Semantik 

38010 i-f s'/. (3-1)»54 then bu'4f“bu$-+-g$ s gosub 40000 
B gosub 42000 a goto 2000 
38020 if s’/. (s-l)»56 then bu-4f='bu.^-<-g.^ s gosub 40000 
8 gosub 42000 b goto 2000 
38030 if s7. (s“l)=58 then bu.>=bu<:+g$ a gosub 40000 
B gosub 42000 b goto 2000 

38040 if s7.<s-l)«55 then pr i nt#ou, ehr* (255) chr'$ (55) p bu$p 
B bu*«"" 8 gosub 40000 

38050 if b'/.(s-1)»57 then print#ou,chr* (255) ehr* (57) p bu*p 
B bu*«"" B gosub 40000 

38060 if s7.(s-l)®59 then pr i nt#ou, ehr* (255) ehr* (59) p bu*p 
B bu*«"" 8 gosub 40000 
38070 goto 2000 

39000 rem ausgabe fuer Semantik 
39010 prlnt#ou,ehr* (255) ehr* (253) ehr* (s7. (s-l ) ) p 
39020 gosub 40000 
39030 goto 2000 

40000 rem entfernen des obersten symbols 

40010 if b 7.(s)«253 then s«s-2 8 return 

40020 if s'/. (s)«252 then s»s~2 b return 

40030 if s'/. (s)«251 then s«s-2 b return 

40040 s«©~l B return 
40050 s 

41000 rem alternative auf den staek sehreiben 
41010 ar/.»len (al*(al) ) 

41020 if al7.«0 then gosub 40000 b return 
41025 s«s+l 

41030 for t9«al7. to 1 step -1 
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41040 s7. (b> »asc <mid$ (al*: (al) ,t9,1 > ) t b“s+1 
41050 ne«t t9 
41060 s“s~l 

41065 rem print#pr,chr$(13)chr$(13)ifor1»»toOBtep-l 
B pr i nt#pr , s7. (1) | i next 
41070 return 
41080 ! 

42000 rem ein neue® Zeichen stellen 

42010 if tl>len<t‘4f) then i goaub 50000 a tl«! 

42020 g$=mid$(t$,t1,1) t g=aBC(g^> 

42030 tl=«tH-l 

42035 rem print#pr,chr$(13)"Das aktuelle Zeichen b“ jg 
42037 rem pr i nt#pr , chr|: < 13) "t$» "jt* 

42040 return 
42050 8 

49000 rem die grammatik 

49010 data 148,252,1,253,5,141,252,2,253,8,252,3 
49012 data 131,253,2,146,252,4,253,5,46,253,18,252 
,5,255,250 

49020 data 162,252,6,253,5,141,253,2,161,252,7,253 
,5,46,253,18,250 


49030 

data 

250 

49040 

data 

251,54,253,7,253,24,250 

49050 

data 

251,55,250 

49060 

data 

250 

49070 

data 

253,19,250 

49080 

data 

250 

49090 

data 

138,253,5,253,20,46,253,8,250 

49100 

data 

44,253,5,253,20,250 

49110 

data 

250 

49120 

data 

253,1,253,3,250 

49130 

data 

253,1,253,3,250 

49140 

data 

250 

49150 

data 

142,46,250 

49160 

data 

252,8,167,253,25,46,250 

49170 

data 

252,9,168,253,25,46,250 
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49180 data 252,10,164,46,250 
49190 data 252,11,152,46,250 
49200 data 252,12,133,253,14,46,250 
49210 data 252,13,134,253,14,46,250 
49220 data 252,14,169,253,14,46,250 
49230 data 252,15,129,253,5,46,250 
49240 data 252,16,149,253,5,46,250 
49250 data 252,17,139,253,5,46,250 
49260 data 252,18,151,253,5,46,250 
49270 data 252,19,140,253,5,46,250 
49280 data 252,20,160,253,17,46,250 

49290 data 252,21,128,253,5,170,253,5,145,253,5,46,250 
49300 data 252,22,158,253,5,163,253,5,145,253,5,46,250 
49310 data 252,23,144,253,5,143,253,5,145,253,5,46,250 
49320 data 252,24,137,253,5,136,253,5,145,253,5,46,250 
49330 data 252,25,147,253,5,143,253,5,145,253,5,46,250 
49340 data 252,26,132,253,5,163,253,5,253,6,252,27,46,250 
49350 data 252,28,166,253,4,135,253,2,252,29,155,253,2 
49355 data 165,252,30,46,250 

49360 data 252,31,153,253,5,159,253,2,154,252,32,253,5,46 
,250 

49370 data 252,33,130,253,5,166,253,4,46,250 

49380 data 252,34,171,253,5,163,253,5,172,253,5,173 

49385 data 252,35,253,2,154,252,36,46,250 

49390 data 252,37,157,253,5,46,250 

49400 data 252,38,156,253,5,46,250 

49410 data 252,39,150,253,5,46,250 

49420 data 252,40,253,11,145,253,5,250 

49430 data 252,41,253,5,145,253,5,250 

49440 data 252,42,145,253,5,250 

49450 data 250 

49460 data 253,5,253,15,253,5,250 
49470 data 252,43,61,250 
49480 data 252,44,174,250 
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49490 

49500 

49510 

49520 

49530 

49540 

49550 

49560 

49570 

49500 

49590 

49600 

49610 

49620 

49630 

49640 

49650 

49660 

49670 

49680 

49690 

49000 

49010 

49820 

49830 

50000 

50005 

50010 

50020 

50030 

50040 

50050 


data 252,45,60,250 

data 252,46,175,250 

data 252,47,62,250 

data 252,48,176,250 

data 251,56,253,26,253,21,250 

data 251,57,250 

data 251,58,253,22,253,23,250 

data 251,59,250 

data 250 

data 253,14,253,12,250 

data 252,49,46,253,14,253,13,250 

data 253,9,250 

data 252,50,250 

data 253,9,250 

data 252,50,250 

data 252,51,69,253,10,250 

data 252,53,43,253,14,250 

data 252,53,45,253,14,250 

data 253,14,250 

data 34,253,21,34,250 

data 253,5,250 

•for 2“1 to 69 

read z7. s if z7-<>250 then al$ (z > «al$ (z )+chr4P (z7.) 
j goto 49810 
ne« t 
return 

rem le«ikalische analyse 
zn“0 

if il=»0 then if i2«0 then if i3=0 then t<:»chr$ <255) 
3 return 

if 11=0 then gosub 51000 

if il>127 and il<204 then i 14P«ba$ < i 1-120) 
if il«171 then if i2«171 then gosub 51700 
3 goto 50000 

if i 1$»" " then if i2$“" " then print#pr, i 14?j 
8 gosub 51500 s goto 50000 
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50070 if ir4?=a"<‘' and i2«r78 then t.t«chr.$ (175) a goto 50195 

50072 i-f il^P»">" and i2«178 then t$»chr<:(176) i goto 50195 

50074 if il-4i:“"/" and i2«178 then t.<f«chr.$ < 174) a goto 50195 

50080 if il«34 then gosub 53000 b goto 50210 

50085 if il«32 then if i2«34 then goto 50130 

50090 if i2<:«"««" or i2$«'"/" or i2:*:“"<" or i2#«">" then 

gosub 52000 8 goto 50200 

50100 if i2<:="." or i2^f»=" " or i2«0 or i2«34 then 
gosub 52000 8 goto 50200 
50110 if i2:^«"," then gosub 52000 a goto 50200 
50126 if il*«"." or il$»%‘' or il^«"«.. 

8 goto 50200 

50128 if il$«"/" or i !$“"<" or il$»">” then t$«i 1'$ 

8 goto 50200 

50130 if il$«" " then print#pr," "p : gosub 51500 
8 goto 50000 

50190 t^=t$+il:$ ; pr i nt#pr, i 1$| b gosub 51500 s goto 50000 

50195 print#pr ,i 1‘4P| b gosub 51500 

50197 if il>127 and il<204 then i l$«ba:J: (i 1-128) 

50200 printttpr,il$p s gosub 51500 

50210 return 

51000 rem seilenanfang 

51005 8 

51007 zn«! 

51010 gosub 51500 8 gosub 51500 a gosub 51500 
51020 print#ou,chr$(255)chr$<254)chr$(il)chr$<i2)p 
51030 print#pr,chr.^<13) pBtrt(il+i2*256) p " "p 
51040 gosub 51500 a gosub 51500 a return 
51050 8 

51500 rem Zeichen einiesen 
51505 8 

51510 il$«i2<: 8 i2»«i3$ b get#in,i3<: 

51520 il«i2 s i2™13 a if i3‘|:»"" then i3«0 b return 
51530 i3»aBC<i3*) a return 
51540 8 

51700 rem zeile bis zum ende ueberlesen 
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51710 print#pr, i l$j : gosub 51500 i i-f il»0 then return 
51720 if il>127 and il<204 then il$“ba$(i1-128) 

51730 goto 51710 
51740 8 

52000 rem ist t^ ein token? 

52010 i 

52020 : t=0 s a^asc < 1 e-f t$ (t:^, 1 ) > 

52030 if a<65 or a>90 then return 


52040 on int((a-65)/5) goto 52060,52070,52080,52090,52100 
52050 on (a-64> goto 52200,52220,52240,52260,52900 
52060 on (a-69> goto 52300,52900, 

52070 on <a-74) goto 52900,52380 
52080 on <a-79) goto 52440,52900 
52090 on (a-84> goto 52500,52520 


52100 

goto 

52560 









52200 

b=0 

fi 

c«2 

8 

gosub 

52700 

8 

return 

8 

rem 

a 

52220 

b»3 

8 

c=4 

8 

gosub 

52700 

3 

rem b 




52230 

b°‘44 

8 

Cn3i44 

8 

gosub 

52700 

8 

return 

8 

rem 

bis 

52240 

b=‘5 

8 

c=6 

8 

gosub 

52700 

8 

return 

8 

rem 

c 

52260 

b«7 

8 

c=9 

8 

gosub 

52700 

8 

return 

8 

rem 

d 

52300 

b™ 10 

8 

c“10 

8 

gosub 

52700 

8 

rem f 




52310 

b«43 

8 

c«43 

8 

gosub 

52700 

8 

return 

8 

rem 

f uer 

52340 

b“ll 

8 

c«12 

8 

gosub 

52700 

8 

return 

8 

rem 

h 

52360 

b = 13 

8 

c»13 

8 

gosub 

52700 

8 

return 

8 

rem 

i 

52380 

b = 14 

8 

c«14 

8 

gosub 

52700 

8 

return 

8 

rem 

1 

52400 

b«15 

8 

c=>16 

8 

gosub 

52700 

8 

return 

8 

rem 

m 

52420 

b«17 

3 

c=17 

8 

gosub 

52700 

8 

return 

8 

rem 

n 

52440 

b«18 

8 

c'=20 

8 

gosub 

52700 

8 

return 

8 

rem 

P 

52460 

b=21 

8 

c=22 

8 

gosub 

52700 

8 

return 

8 

rem 

r 

52480 

b=23 

8 

c=30 

8 

gosub 

52700 

8 

return 

8 

rem 

B 

52500 

b>=31 

8 

c=34 

8 

gosub 

52700 

8 

return 

8 

rem 

U 

52520 

b“35 

8 

c“'36 

8 

gosub 

52700 

8 

return 

8 

rem 

V 

52540 

b»37 

8 

0=38 

8 

gosub 

52700 

8 

rem w 




52550 

b'=45 

8 

b«45 

8 

gosub 

52700 

8 

return 

8 

rem 

wi ed( 

52560 

b«39 

8 

c»42 

8 

gosub 

52700 

8 

return 

8 

rem 

z 


52340.52360.52900 

52400.52420.52900 

52460.52480.52900 

52540.52900.52900 


52700 for d“b to c 
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52710 ii t*»ml.$:<d) then t«12B+d 
52720 neMt d 

52800 if t»0 then return 
52810 t$»=chr$<t) i return 
52900 return 

53000 rem zeichenkette Lieber lesen 
53010 t-ls'-t^+il^ 8 print#pr ,11.$| i gosub 51500 
8 if il<>34 then goto 53010 

53020 l'$ 8 print#pr, i l$p 8 gosub 51500 s return 

53030 8 

58000 rem miniatur~worte im klartext 
58005 8 

58008 mi:*:(0>«“addiere" 

58010 mi4f (1) «"ausgabegeraet" 

58020 mi<:<2>»"ausgang" 

58030 mi$(3>«"beginne" 

58040 mi<:<4)«"bilde" 

58050 mi$<5)«"cuBpalte" 

58060 mi<: (6) «"cuzei le" 

58070 mi*<7)>=»"dann" 

58080 mi*(8)«"durch" 

58090 ml ■> (9) «"dividiere" 

58100 mi$<10)«"fHess" 

58110 mi$(11)«"hintergrund" 

58120 mi$(12)«"hole" 

58130 mi.>(13)»"ist" 

58140 mi4c(14>«"leer" 

58150 mil^<15)»"mit" 

58160 mi*<16)«"multipliziere" 

58170 mllP<17)«"nach" 

58180 mi*(18>="pende" 

58190 mit(19)«"potenziere" 

58200 mi <20) «"Programm" 

58210 mi.^(21)«"rahmen" 

58220 mi*(22)»"rufe" 

58230 milP(23)«"Bchrift" 
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S8240 mi#(24)«’'Bchirm-frei " 

583250 ml$<25)»"Bchlelfe'‘ 

58260 mi'^(26)«"sende" 

58270 mi4?<27) «"sonst" 

58280 mi.>(28)«"Bpringe" 

58290 mi*:<29>«"Bprungmarke" 

58300 mi<30> «"subtrahi ere" 

58310 mi$<31>«"ueber" 

58320 mi’4f <32)«"uebertrage" 

58330 mi<i:<33)»"uende" 

58340 mi4P (34) «"Unterprogramm" 
58350 mi$<35>«"von" 

58360 mi'|5 (36) «"Vorschub" 

58370 mi<^ (37) «"wende" 

58380 mi4P(38)="wenn" 

58390 mi$(39)«"zeige" 

58400 mi'^(40)»"zeigez" 

58410 mi$(41)«"zeigeas" 

58420 mi.$:(42)»"zu" 

58430 mi$(43)«"fuer" 

58440 mi$(44)»"bis" 

58450 mi*(45)«"wiederhüle" 

58460 mi4P(46)«"/«" 

58470 ml*(47)«"<«" 

58480 mi»(4e)«">«" 

58490 return 
58500 s 

59000 rem baslc-worte im klärtest 
59005 8 

59008 ba4F(0)«"end" 

59010 ba$(l)«"for" 

59020 ba4P(2)«"ne«t" 

59030 ba4i:(3)«"data" 

59040 ba<:(4)«"input#" 

59050 ba4?(5)«"input" 

59060 ba$(6)«"dim" 
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59070 

ba:t(7)»"read" 

59080 

ba$(8)="let" 

59090 

ba-4f <9)="goto" 

59100 

ba$ <10)«"run" 

59110 

ba$(ll)<=-"i-f' 

59120 

ba#(12)“"restore 

59130 

ba’^(13)="goBub’' 

59140 

ba$ <14)“"return" 

59150 

ba'^<15)=«"rem" 

59160 

ba#(16)«"Btop" 

59170 

ba-4f <17)=»"on" 

59180 

ba$(18)»"wait" 

59190 

ba<f (19)“"load" 

59200 

ba$(20)«"save" 

59210 

ba.$<21)‘«"verify" 

59220 

ba$(22)»"def" 

59230 

ba:t:(23)»"poke" 

59240 

ba#(24)="print#" 

59250 

ba$(25)="print" 

59260 

ba<:(26)='*cont" 

59270 

ba.$(27)»"liBt" 

59280 

ba<:<28)«="clr" 

59290 

ba$<29)«“cmd" 

59300 

ba$<30)“"ByB" 

59310 

ba'$ (31) «"open " 

59320 

ba$<32)«"cloBe" 

59330 

ba$(33)«"get" 

59340 

ba$<34)«"new" 

59350 

ba*<35)«"tab <" 

59360 

ba<:(36)«"to" 

59370 

ba'«<37)»"fn" 

59380 

ba:>(38)«"Bpc <" 

59390 

ba$(39)«"then" 

59400 

ba$(40)«"not" 

59410 

ba‘.$ (41) «"Step" 

59420 

ba$(42)«"+" 


59430 ba$<43)<="-" 

59440 ba$<44)="*" 

59450 ba.$:(45)»‘V" 

59460 ba<:<46)«''" 

59470 ba:$(47)=»"and" 

59480 ba$<40)“"or" 

59490 ba$<49)“">" 

59500 ba$(50)="=>" 

59510 ba$(51)»"<" 

59520 ba$(52)“"ogn" 

59530 ba‘^<53)="int'‘ 

59540 ba$<54)=‘’ab®" 

59550 ba.$:<55)«"uBr" 

59560 ba$<56)«"fre" 

59570 ba’^(57)="poB" 

59580 ba*<58)=>"Bqr" 

59590 ba$(59)«"rnd" 

59600 ba<;(60>«"log" 

59610 ba.>(61)«"©«p’' 

59620 ba:$:<62)="co«" 

59630 ba.*:(63)=»'‘sin“ 

59640 ba$(64>="tan" 

59650 ba-t (65)="atn" 

59660 ba$<66)»"peek" 

59670 ba*<67)«"lon" 

59680 ba$<68)="Btr<:" 

59690 ba4J (69)="val " 

59700 ba*(70)="aBc" 

59710 ba$<71)»"chr^" 

59720 ba»<72)«"left<:“ 

59730 ba-Jf (73) «"rights?" 

59740 ba$(74>="mid$" 

59750 ba#<75)«"go" 

59760 return 
59770 8 

60000 rem -fehlerkanal diskettenstation lesen 
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60010 

8 





60020 

input#be,en 

,em$,ot,e6 i if en«0 

then return 

60030 

pr i nt 





60040 

pr i nt 

"**** 

•fehler au-f diskette 

! " 

60050 

pr i nt 


fehlernummer s " 

} en 


60060 

pr i nt 


•f ehl ernachr i cht 

8 " 


60070 

print 


"; em'$ 



60080 

pri nt 


■fehlerhafte spur 

8 

"jet 

60090 

print 


fehlerhafter sector 

8 " $ es 

60100 

print#be,"i 

II 



60120 

print 

8 print"**** Programm 

abgebrochen!" 

60130 

end 
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DRUCKEN DES PARSER OUTPUTS 


Die Ausgaben des Parsers, die für die semantische Analyse 
und die Codegenerierung nötig sind, können Sie mit dem 
folgenden Programm ausgeben lassen. 

Sie erhalten dann sozusagen eine Kurzfassung Ihrer 
Programme, die aber noch alle notwendigen Informationen 
enthält. 

Beispiel: 

Die Ausgaben für das Programm 'anfang'. 


Programmbezeichner Definition 
Bezeichner : anfang 
Definitionsteil Anfang 
Definitionsteil Ende 
Programmbezeichner Prüfung 
Bezeichner : anfang 
Programm Ende 
Programm Ende 

Das erste 'Programm Ende' bedeutet das logische Ende des 
Programms, das zweite das physikalische Ende der Datei. 


161 


1000 rem programm zur auegabe von 
1010 rem miniatur-syn 
1020 rem 

1030 rem - 

1040 rem 

1050 print"auegabe auf drucker <d> oder schirm (s) 7" 
1060 get w-lf s if w<:a"d" then pr»4 i goto 1005 
1070 if w$«"s" then pr«3 s goto 1005 
1000 goto 1060 

1085 prinf'mit zeilennummer (j) 7 " 

1087 get vt'$ t if w|Pa"" then 1007 
1089 if then ss»l 

1100 open pr,pr 
1110 in «0 

1120 open in,in,in,"miniatur-syn,s,r" 

1130 get#in,w’^ 

1140 get#in,w$ s if w$«"" then w^O 8 goto 1160 
1150 w“asc(w.t) 

1160 if w“253 then print#pr,chr$<13 )5 

1165 if w<>253 then 5000 

1166 get#in,w$ s w='asc(w4=> 


1170 

if 

W »1 

then printttpr,"programmbozeichner definition 




"J « 

goto 1130 

1180 

if 

w «2 

then 

print#pr,"definitionsteil anfang 




8 

goto 1130 

1190 

if 

w«3 

then 

print#pr,"definitionstei 1 ende 




"5 8 

goto 1130 

1200 

if 

ygnaZ|i 

then 

print#pr , "programmbezei ebner pruefung 




"P 8 

goto 1130 

1210 

if 

W“5 

then 

print#pr,"Programm ende 




"S 8 

goto 1130 

1220 

if 

W »6 

then 

print#pr,"unterprogrammbezei ebner 


definition 

"; 8 goto 1130 

1230 

if 

w»7 

then 

print#pr,"unterprogrammbezei ebner 


pruef Ling 

"1 8 goto 1130 

1240 

if 

w »8 

then 

print#pr,"ausgabe 
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; 3 goto 1130 


1250 

if 

W“9 

then 

print#pr , "ausgabe mit Vorschub 




<■ ■ . 
9 • 

goto 1130 

1260 

if 

w=10 

then 

print#pr,"Vorschub 




'S I 

goto 1130 

1270 

if 

w«=l 1 

then 

printttpr,"schirmfrei 




"S B 

goto 1130 

1280 

if 

w«12 

then 

printttpr,"cursorspalte 





goto 1130 

1290 

if 

w»13 

then 

print#pr,"cursorzei1e 




"5 8 

goto 1130 

1300 

if 

w»14 

then 

print#pr,"ausgabe ascii 




I 

goto 1130 

1310 

if 

W“15 

then 

print#pr,"geraet 




"i « 

goto 1130 

1320 

if 

W“16 

then 

print#pr,"rahmen 




"> 1 

goto 1130 

1330 

i f 

w«17 

then 

print#pr , "hi ntergründ 




• 

goto 1130 

1340 

if 

W“18 

then 

print#pr,"sehrift 





goto 1130 

1350 

if 

W“ 19 

then 

print#pr,"eingabe 




") « 

goto 1130 

1360 

if 

W“20 

then 

print#pr , "uebertrage 




"S B 

goto 1130 

1400 

if 

w«21 

then 

print#pr,"addiere 




•• ■ « 

9 • 

goto 1130 

1410 

if 

ww22 

then 

printttpr,"subtrahiere 




"S B 

goto 1130 

1420 

if 

^«23 

then 

printttpr , "multipliziere 




"? 3 

goto 1130 

1430 

if 

w“24 

then 

printttpr,"dividiere 




"S 8 

goto 1130 

1440 

if 

W“25 

then 

printttpr,"potenziere 




•'S B 

goto 1130 

1450 

if 

^“26 

then 

print#pr,"bi 1 de 
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"j « 

goto 1130 

1460 

if 

w»27 

then 

print#pr,"punkt 




•1. ■ 

!• • 

goto 1130 

1500 

if 

w«2a 

then 

printttpr,“entscheidüng 




•'? S 

goto 1130 

1510 

i-f 

W“29 

then 

printttpr,"sonst 




"5 8 

goto 1130 

1520 

if 

W“30 

then 

printttpr,"entscheidungsende 




"f 8 

goto 1130 

1530 

if 

w=31 

then 

printttpr,"endlosschleife 




"S 8 

goto 1130 

1540 

if 

w«32 

then 

printttpr,"endlosschleifenende 




8 

goto 1130 

1550 

if 

w«33 

then 

printttpr,"ausgang 




"1 « 

goto 1130 

1560 

if 

W“34 

then 

printttpr,"Indexsch1 eife 




"t s 

goto 1130 

1600 

if 

w«35 

then 

printttpr,"schleifenanfang 




"5 : 

goto 1130 

1610 

if 

w«36 

then 

printttpr,"Indexschleifenende 




•j 8 

goto 1130 

1620 

if 

w»37 

then 

printttpr,"sprungmarke 




"P 8 

goto 1130 

1630 

if 

w«38 

then 

printttpr,"springe 




"P 8 

goto 1130 

1640 

if 

W“39 

then 

printttpr,"rufe 




”P 8 

goto 1130 

1650 

if 

w«40 

then 

printttpr,"f1iesskommazahl 




"P 8 

goto 1130 

1660 

if 

w«41 

then 

printttpr,"variable 




"P 8 

goto 1130 

1700 

if 

W“42 

then 

printttpr,"bi 1de-1 




"P 8 

goto 1130 

1710 

if 

W“43 

then 

printttpr,"operator ® 




"P 8 

goto 1130 

1720 

if 

W“44 

then 

printttpr, "operator /»» 
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", 1 

goto 1130 


1730 

i-f 

W“45 

then 

print#pr,"operator 

< 




•P 8 

goto 1130 


1740 

i-f 

w«46 

then 

print#pr,"operator 

<B 




'P 8 

goto 1130 


1750 

if 

W“47 

then 

print#pr,"operator 

> 




"3 * 

goto 1130 


1760 

if 

w«48 

then 

print#pr,"operator 

>B 




"1 » 

goto 1130 


1800 

if 

w«49 

then 

print#pr,"dezimalstellen 




"p 8 

goto 1130 


1810 

if 

w*50 

then 

print#pr,"kein exponent 




•P 8 

goto 1130 


1820 

if 

w«51 

then 

print#pr,"exponent 





•p 8 

goto 1130 


1830 

if 

W“52 

then 

print#pr,"plus 





"P 8 

goto 1130 


1840 

if 

w«53 

then 

print#pr,"minus 





" P 8 

goto 1130 



1850 print#pr,‘'fehler ! ! ! ! ! “; 

1860 stop 

5000 rem routinen w>54 

5010 i-f w“255 then pr i ntttpr , chr<: (13) "programm ende"j 
8 goto 13000 

5020 if w»254 and sb«1 then print#pr,ehrt (13) "zei 1 ennummer 
I "j I goto 14000 
5025 i-f w«254 then goto 14000 

5100 i-f w“55 then print#pr ,chr$ < 13) "bezeiebner 8 *'p 
8 goto 10000 

5110 i-f w“57 then pr i nt#pr , chr$ (13) "zei chenkette 8 "p 
8 goto 11000 

5120 i-f w®59 then printttpr ,chrt < 13) "ganzzahl 8 "p 
8 goto 12000 

10000 rem bezeichner einlesen 

10010 get#in,w* 8 i-f w$»chr.>(255) then 1140 

10020 print#pr,w$p 
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10030 

goto 10010 



11000 

rem zeichenkette einiesen 



11010 

get#in,w-$ s i-f (255) 

then 

1140 

11020 

print#pr, 



11030 

goto 10010 



12000 

rem ganzzahl einlesen 



12010 

get#in,w.$ s i-f w$«chr$<255) 

then 

1140 

12020 

pri nt#pr, 



12030 

goto 10010 



13000 

rem programm ende 



13010 

dose pr 



13020 

dose in 



13030 

end 



14000 

rem zei1ennmummer 



14010 

get#in,w.> s if then z 

«0 s 

goto 14020 

14015 

z»aec 



14020 

get#in,w^ b if then goto 14025 

14022 

z “z -f asc (> •«•256 



14025 

if SB=1 then print#pr,Z5 



14030 

goto 1130 
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Bei BpiolProgramm 'anfang* i 


programmbezeiebner de-finition 
bezeichner i anfang 
de-f i ni ti onstei 1 anfang 
definitionsteil ende 
programmbezeiebner pruefung 
bezeiebner i anfang 
Programm ende 
Programm ende 


BaiBpi•!Programm 'auagaba' i 


programmbezeiebner definition 
bezeiebner t ausgabe 
definitionstei1 anfang 
definitionsteil ende 
ausgabe mit vorsebub 
zeiebenkette : Beispiel fuer 
ausgabe 

zeiebenkette i die Text 
ausgabe 

zeiebenkette b ausgabe 
programmbezeiebner pruefung 
bezeiebner i ausgabe 
Programm ende 
Programm ende 


BaiBpialProgramm 'auagabab' i 
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programmbezeichner definition 

bezeiebner a ausgabeb 

definitionsteil anfang 

definitionsteil ende 

schirmfrei 

cursorzeile 

ganzzahl i S 

cursorspal te 

ganzzahl i 5 

ausgabe ascii 

ganzzahl i 10 

ausgabe 

zeichenkette i Ausgabe auf Schirm 

ausgabe ascii 

ganzzahl i 146 

Vorschub 

Vorschub 

Vorschub 

ausgabe mit Vorschub 
zeichenkette i Ausgabe auf Schirm 
programmbezeiebner pruefung 
bezeichner s ausgabeb 
Programm ende 
Programm ende 


BeispielProgramm 'drucker* i 


programmbezeiebner definition 
bezeichner i drucker 
definitionsteil anfang 
definitionstei1 ende 
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geraet 

bezeichner j drucker 
ausgabe mit Vorschub 

zeichenkette b Jetzt druckt der Drucker 
geraet 

bezeichner b schirm 
ausgabe mit Vorschub 

zeichenkette b Wieder au-f den Schirm! 
programmbezeiebner pruefung 
bezeichner b drucker 
Programm ende 
Programm ende 


BeispielProgramm 'färbe' i 


programmbezeiebner definition 

bezeichner b färbe 

definitionstei1 anfang 

definitionsteil ende 

schirmfrei 

hintergrund 

bezeichner b schwarz 

rahmen 

bezeichner b weiss 
Schrift 

bezeichner b weiss 
cursorzei1e 
ganzzahl b 12 
cursorspalte 
ganzzahl b 17 
ausgabe ascii 
ganzzahl b 16 
ausgabe mit Vorschub 
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zeichenkette s Farbe 
auBgabe aecii 
ganzzahl i 146 
hi ntergründ 
bezeichner i weise 
rahmen 

bezeichner b schwarz 
programmbezeiebner pruefung 
bezeichner i -färbe 
Programm ende 
Programm ende 


Bei spielProgramm 'Vereinbarung' i 


programmbezeichner de-finition 
bezeichner b Vereinbarung 
definitionsteil anfang 
bezeichner 8 otto 
bezeichner i enno 
bezeichner b benno 
definitionsteil ende 
programmbezeichner pruefung 
bezeichner b Vereinbarung 
Programm ende 
Programm ende 


BeispislProgramm 'ein' i 


programmbezeichner definition 
bezeichner b ein 
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definitionsteil anfang 
bezeichner : alter 
definitionsteil ende 
schirmfrei 
ausgabe 

zeichenkette i Ihr Alter b 
eingabe 

bezeichner i alter 

Vorschub 

ausgabe 

zeichenkette b Sie sind 
ausgabe 

bezeichner s alter 
ausgabe mit Vorschub 
zeichenkette s Jahre alt. 
programmbezeiebner pruefung 
bezeichner b ein 
Programm ende 
Programm ende 


Bei spielProgramm 'arithmetik' i 


programmbezeichner definition 
bezeichner : arithmetik 
definitionstei1 anfang 
bezeichner s monika 
bezeichner b thomas 
bezeichner b caecilia 
bezeichner s benno 
bezeichner b enno 
bezeichner b otto 
definitionstei1 ende 
schirmfrei 
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Vorschub 

ausgabe mit Vorschub 

zeichenkette i Demonstration der Fliesskommaarithmeti k 

Vorschub 

uebertrage 

f1iesskommazahl 

ganzzahl b 2 

kein exponent 

bezeiebner s monika 

uebertrage 

f1iesskommazahl 

ganzzahl s 5 

kein exponent 

bezeichner b thomas 

uebertrage 

variable 

bezeichner i thomas 
bezeichner i caecilia 
ausgabe 

zeichenkette b monika “ 
ausgabe mit Vorschub 
bezeichner b monika 
ausgabe 

zeichenkette b thomas « 
ausgabe mit Vorschub 
bezeichner b thomas 
ausgabe 

zeichenkette e caecilia » 
ausgabe mit Vorschub 
bezeichner b caecilia 
addiere 

bezeichner b monika 
bezeichner s thomas 
bezeichner b benno 
Vorschub 
ausgabe 
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zeichenkette s 2 + 5 = 
auegabe mit vorechub 
bezeichner i benno 
subtrahiere 
bezeichner s caecilia 
bezeichner i benno 
bezeichner s enno 
ausgabe 

zeichenkette b 7 - 2 « 
ausgabe mit Vorschub 
bezeichner s enno 
multipliziere 
bezeichner i thomas 
bezeichner b monika 
bezeichner b otto 
ausgabe 

zeichenkette b 5 * 2 “ 
ausgabe mit Vorschub 
bezeichner b otto 
dividiere 

bezeichner b caecilia 
bezeichner b monika 
bezeichner b enno 
ausgabe 

zeichenkette b 5 / 2 «= 
ausgabe mit Vorschub 
bezeichner b enno 
potenziere 
bezeichner b monika 
bezeichner b thomas 
bezeichner b benno 
ausgabe 

zeichenkette b 2 hoch 5 « 
ausgabe mit Vorschub 
bezeichner b benno 
programmbezeichner pruefung 
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bezeichner s arithmetik 


Programm 

Programm 


ende 

ende 


B«l*pl«lProgramm 'funktionan' i 


programmbezeichner definition 

bezöichn8?r i funktionon 

definitionsteil anfang 

bezeichner b a 

bezeichner b b 

bezeichner b c 

bezeichner b d 

bezeichner a e 

bezeichner b f 

bezeichner b g 

bezeichner b piviertel 

definitionstei1 ende 

uebertrage 

f1iesskommazahl 

ganzzahl b 4 

kein exponent 

bezeichner s a 

uebertrage 

f1iesskommazahl 

ganzzahl b 4 

kein exponent 

bezeichner a b 

uebertrage 

f1iesskommazahl 

ganzzahl b 3 

dezimalstel len 

ganzzahl a 1415 

kein exponent 

bezeichner b c 

dividiere 

bezeichner b c 

bezeichner a b 
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bezeichner i piviertel 
®chlrmfrei 

ausgabe mit Vorschub 

zeichenkette i Demonstration der Funktionen 

Vorschub 

bi 1 de 

bezeichner a integer 
bezeichner a c 
bilde-1 

bezeichner a d 

punkt 

ausgabe 

zeichenkette a c « 
ausgabe mit Vorschub 
bezeichner a c 
ausgabe 

zeichenkette a d « 
ausgabe mit Vorschub 
bezeichner a d 
bilde 

bezeichner a absolut 
bezeichner a a 
punkt 
ausgabe 

zeichenkette a absolute von 4 » 
ausgabe mit Vorschub 
bezeichner a a 
bilde 

bezeichner i actangens 
bezeichner a piviertel 
bilde-1 

bezeichner a e 

punkt 

ausgabe 

zeichenkette a actangens von piviertel “ 
ausgabe mit Vorschub 
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bezeichner b 

e 


bilde 

bezeichner b 

cosinuB 


bezeichner b 

piviertel 


bilde~l 

bezeichner b 

e 


punkt 

auegabe 

zeichenkette 

B Cosinus von 

piviertel 

auegabe mit 

Vorschub 


bezeichner b 

e 


bilde 

bezeichner b 

exponent 


bezeichner b 

b 


bilde-1 

bezeichner b 

e 


punkt 

ausgabe 

zeichenkette 

B exponent von 

1 4 “ 

ausgabe mit 

Vorschub 


bezeichner s 

e 


bi 1 de 

bezeichner b 

integer 


bezeichner b 

piviertel 


bilde~l 

bezeichner b 

e 


punkt 

ausgabe 

zeichenkette 

8 integer von 

piviertel 

ausgabe mit 

Vorschub 


bezeichner b 

e 


bilde 

bezeichner b 

logarithmus 


bezeichner b 

b 


bilde-1 

bezeichner b 

e 
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punkt 

ausgabe 

zeichenkette ! logarithmue von 4 « 
ausgabe mit Vorschub 
bezeichner : e 
bilde 

bezeichner i speicherwert 

bezeichner s b 

bilde~l 

bezeichner s f 

punkt 

ausgabe 

zeichenkette b Inhalt von Speicherstel1e 4 « 
ausgabe mit Vorschub 
bezeichner a i 
bilde 

bezeichner b zufall 
bezeichner s a 
bilde-1 

bezeichner b g 

punkt 

ausgabe 

zeichenkette b zufall von 4 « 
ausgabe mit Vorschub 
bezeichner a g 
bi Ide 

bezeichner b Vorzeichen 
bezeichner b b 
bilde-1 

bezeichner b g 

punkt 

ausgabe 

zeichenkette b Vorzeichen von 4 « 
ausgabe mit Vorschub 
bezeichner a g 
bilde 


17B 


bezeichner 3 sinus 
bezeichner 8 piviertel 
bilde-1 , 

bezeichner s e 
punkt 
auegabe 

zeichenkette b sinus von piviertel « 
ausgabe mit Vorschub 
bezeichner 1 e 
bilde 

bezeichner i quadratwurzel 
bezeichner 3 b 
bi 1de-l 

bezeichner 1 g 

punkt 

ausgabe 

zeichenkette 1 quadratwurzel von 4 “ 
ausgabe mit Vorschub 
bezeichner t g 
bilde 


bezeichner 8 tangens 
bezeichner s piviertel 
bilde-1 

bezeichner 8 f 

punkt 

ausgabe 

zeichenkette 8 tangens von piviertel » 

ausgabe mit Vorschub 

bezeichner 8 i 

ausgabe mit Vorschub 

zeichenkette 1 Hat alles geklappt? 

programmbezeiebner pruefung 

bezeichner b funktionen 

Programm ende 

Programm ende 
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Bsispi«!Programm 'garada' i 

programmbezeichnar deflnition 
bezeichner i gerade 
definitionstei1 anfang 


bezeichner 

a zahl 

bezeichner 

a hilf 

bezeichner 

a zwei 

bezeichner 

B null 

bezeichner 

a hilfv 


definitionsteil ende 

schirmfrei 

Vorschub 

uebertrage 

f1iesskommazahl 

ganzzahl a 2 

kein exponent 

bezeichner i zvgei 

ausgabe 

zeichenkette a Bitte eine positive ganze Zahl eingeben 


eingabe 


bezeichner 

B zahl 


Vorschub 


uebertrage 


variable 


bezeichner 

1 zahl 

bezeichner 

B hilf 

dividiere 


bezeichner 

B hilf 

bezeichner 

B zwei 

bezeichner 

B hilf 

bilde 


bezeichner 

B integer 


100 - 


8 


hilf 


bezeiebner 
punkt 
dividiere 
bezeichner b zahl 
bezeichner s zwei 
bezeichner b hilfv 
subtrahiere 
bezeichner b hilf 
bezeichner s hilfv 
bezeichner s hilf 
uebertrage 
f1iesskommazahl 
ganzzahl s 0 
dezimalstel 1 en 
ganzzahl s 0 
kein exponent 
bezeichner b null 
entschoidüng 
bezeichner b hilf 
operator « 
bezeichner b null 
ausgabe 

bezeichner a zahl 
ausgabe mit Vorschub 

zeichenkette b Dies ist eine gerade Zahl. 

sonst 

ausgabe 

bezeichner b zahl 
ausgabe mit Vorschub 

zeichenkette a Dies ist eine ungerade Zahl. 

entscheidungsende 

programmbezeiebner pruefung 

bezeichner b gerade 

Programm ende 

Programm ende 
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BeispielProgramm 'wähl' i 


programmbezeiebner definition 

bezeichner : wähl 

de-f i ni t i onstei 1 an-fang 

bezeichner s test 

bezeichner : eins 

definitionsteil ende 

schirmfrei 

Vorschub 

ausgabe 

zeichenkette s Ausgabe Drucker (1) / Schirm (2) 7 
eingabe 

bezeichner s test 
Vorschub 
uebertrage 
f1iesskommazahl 
ganzzahl i 1 
dezimalstel1en 
ganzzahl s 0 
kein exponent 
bezeichner i eins 
entscheidüng 
bezeichner : test 
operator « 
bezeichner b eins 
geraet 

bezeichner i drucker 
ausgabe mit Vorschub 

zeichenkette s Ausgabe auf dem Drucker, 
geraet 

bezeichner i schirm 
sonst 
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auegabe mit Vorschub 

zeichenkette b Ausgabe au-f dem Schirm. 

entscheidungsende 

programmbezeiebner pruefung 

bezeichner s wähl 

Programm ende 

Programm ende 
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BsispialProgramm 'antachaidung* i 


programmbezeiebner definition 

bezelchner s entscheidung 

definitionstei1 anfang 

bezeichner i drei 

bezelchner i vier 

definitionstell ende 

schirmfrei 

Vorschub 

uebertrage 

f1iesskommazahl 

ganzzahl b 3 

dezimalstellen 

ganzzahl b 0 

kein exponent 

bezeichner s drei 

uebertrage 

f1iesskommazahl 

ganzzahl a 4 

dez i malstel1en 

ganzzahl b 0 

kein exponent 

bezeichner b vier 

ausgabe mit Vorschub 

zeichenkette b EntscheidungenB 

entscheidüng 

bezeichner b drei 

operator « 

bezelchner b vier 

ausgabe mit Vorschub 

zoichenkette a Fehler bei «»! 

sonst 

ausgabe mit Vorschub 


1B4 


zeichenkette s KEln Fehlerr bei « 

entecheidüng 

bezeichner b drei 

Operator > 

bezeichner i vier 

ausgabe mit Vorschub 

zeichenkette i Fehler bei > ! 

sonst 

ausgabe mit Vorschub 

zeichenkette i Kein Fehler bei > 

entecheidüng 

bezeichner a drei 

operator >“ 

bezeichner 3 vier 

ausgabe mit Vorschub 

zeichenkette i Fehler bei >« ! 

sonst 

ausgabe mit Vorschub 

zeichenkette 1 Kein Fehler bei >» 

entscheidüng 

bezeichner 1 drei 

operator /■ 

bezeichner a vier 

ausgabe mit Vorschub 

zeichenkette a Kein Fehler bei /« 

entscheidüng 

bezeichner a drei 

operator < 

bezeichner a vier 

ausgabe mit Vorschub 

zeichenkette a Kein Fehler bei < 

entscheidüng 

bezeichner a drei 

operator <■ 

bezeichner a vier 

ausgabe mit Vorschub 
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zeichenkette s Kein Fehler bei <« 
sonst 

ausgabe mit Vorschub 
zeichenkette b Fehler bei <“ ! 
entscheidungsende 
sonst 

ausgabe mit Vorschub 
zeichenkette i Fehler bei < ! 
entscheidungsende 
sonst 

ausgabe mit Vorschub 
zeichenkette i Fehler bei /“ ! 
entscheidungsende 
entscheidungsende 
entscheidungsende 
entscheidungsende 
programmbezeiebner prue-fung 
bezeichner i entscheidung 
Programm ende 
Programm ende 


Bei spiel Programm 'endlos* i 


programmbezeichner definition 
bezeichner b endlos 
definitionsteil anfang 
bezeichner b zahl 
bezeichner b eins 
definitionsteil ende 
uebertrage 
f1iesskommazahl 
ganzzahl b 1 
dezimalstel1en 
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ganzzahl a 0 
kein exponent 
bezeichner : eins 
uebertrage 
f1iesskommazahl 
ganzzahl a 0 
dezimalstel1en 
ganzzahl a 0 
kein exponent 
bezeichner a zahl 
endlosBchleife 
bezeichner a ganz 
ausgabe mit Vorschub 
bezeichner a zahl 
addiere 

bezeichner a eins 
bezeichner a zahl 
bezeichner a zahl 
endlosschleifenende 
bezeichner a ganz 
programmbezeichner pruefung 
bezeichner a endlos 
Programm ende 
Programm ende 


BeispielProgramm 'hundert' : 


programmbezeichner de-finition 
bezeichner a hundert 
def i ni ti onstei 1 an-fang 
bezeichner a zahl 
bezeichner a eins 
bezeichner a hundert 
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definitionstei1 ende 

uebertrage 

f1iesskommazahl 

ganzzahl i 1 

dezimalstellen 

ganzzahl i 0 

kein exponent 

bezeichner i eins 

uebertrage 

■f 1 i esskommazahl 

ganzzahl s 0 

dezimalstellen 

ganzzahl a 0 

kein exponent 

bezeichner a zahl 

uebertrage 

-f 1 i esskommazahl 

ganzzahl a 100 

dezimalstellen 

ganzzahl a 0 

kein exponent 

bezeichner a hundert 

endlosschleife 

bezeichner a ganz 

ausgabe mit Vorschub 

bezeichner a zahl 

addiere 

bezeichner a eins 
bezeichner a zahl 
bezeichner a zahl 
ausgang 

bezeichner a ganz 
bezeichner a hundert 
operator « 
bezeichner a zahl 
endlOBSchleifenende 


bezeichner i ganz 
programmbezeiebner pruefung 
bezeichner ; hundert 
Programm ende 
Programm ende 


Beispielprogramm ausganga' t 


programmbezeiebner definition 

bezeichner s ausganga 

definitionsteil anfang 

bezeichner s gudrun 

bezeichner a enno 

bezeichner a eins 

definitionsteil ende 

uebertrage 

f1iesskommazahl 

ganzzahl a 1 

dezimalstellen 

ganzzahl a 0 

kein exponent 

bezeichner a eins 

uebertrage 

f1iesskommazahl 

ganzzahl a 0 

dezimalstellen 

ganzzahl a 0 

kein exponent 

bezeichner a enno 

uebertrage 

f11 esskommazahl 

ganzzahl a 100 

dezimalstel1en 


189 


ganzzahl s 0 
kein exponent 
bezeichner : gudrun 
endl osschl ei -f e 
bezeichner s aussen 
endlosschleife 
bezeichner : innen 
ausgabe mit Vorschub 
bezeichner i enno 
ausgang 

bezeichner s aussen 
bezeichner : enno 
operator « 
bezeichner i gudrun 
addiere 

bezeichner a eins 
bezeichner a enno 
bezeichner*fl enno 
endl osschl ei-fenende 
bezeichner fl innen 
endlosschleifenende 
bezeichner s aussen 
programmbezeiebner pruefung 
bezeichner a ausganga 
Programm ende 
Programm ende 
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Bei spiel Programm 'ausgangtest' a 


programmbezeichner de-finition 
bezeichner i ausgangtest 
def i ni ti onstei 1 an-fang 
bezeichner a gudrun 
bezeichner a enno 
bezeichner i monika 
de-f ini tionstei 1 ende 
schirmfrei 
Vorschub 

ausgabe mit Vorschub 

zeichenkette a Test fuer die Ausgang-Anweisung. 

Vorschub 

uebertrage 

f1iesskommazahl 

ganzzahl a 2 

dezimalstel1en 

ganzzahl a 0 

kein exponent 

bezeichner a gudrun 

uebertrage 

f1iesskommazahl 

ganzzahl a 2 

dezimalstel1en 

ganzzahl a 0 

kein exponent 

bezeichner a monika 

uebertrage 

f1iesskommazahl 

ganzzahl a 7 

dezimalstel1en 

ganzzahl a 0 

kein exponent 
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bezeichner s enno 
endloöSBchl ei f e 
bezeichner 3 schleifea 
endlosschleife 
bezeichner 3 schleifeb 
endlosBchleife 
bezeichner 8 schleifec 
endlosschleife 
bezeichner b schleifed 
endlOBSchleife 
bezeichner 3 schleifee 
endlOBBchleife 
bezeichner s schleifef 
endlosBchleife 
bezeichner s schleifeg 
endloBschleife 
bezeichner s schleifeh 
ausgang 

bezeichner s schleifeh 
bezeichner 8 gudrun 
operator /= 
bezeichner s enno 
ausgabe mit Vorschub 

zeichenkette b Ausgang schleifeh fehlerhaft 
endlosBchleifenende 
bezeichner b schleifeh 
ausgabe mit Vorschub 

zeichenkette s Ausgang schleifeh in Ordnung 
ausgang 

bezeichner b schleifeg 
bezeichner 8 gudrun 
operator < 
bezeichner 8 enno 
ausgabe mit Vorschub 

zeichenkette 3 Ausgang schleifeg fehlerhaft 
endlosBchl eifenende 


192 


bezeichner 5 schleifeg 


ausgabe mit Vorschub 


zeichenkette s Ausgang schleifeg 

in Ordnung 

ausgang 


bezeichner 1 schleifef 


bezeichner 1 gudrun 


operator <« 


bezeichner a enno 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifef 

fehlerhaft 

endlosschleifenende 


bezeichner a schleifef 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifef 

in Ordnung 

ausgang 


bezeichner a schleifee 


bezeichner a gudrun 


operator <® 


bezeichner a monika 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifee 

fehlerhaft 

endlosschleifenende 


bezeichner a schleifee 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifee 

in Ordnung 

ausgang 


bezeichner a schleifed 


bezeichner a enno 


operator > 


bezeichner a monika 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifed 

fehlerhaft 

endlosschleifenende 


bezeichner a schleifed 


ausgabe mit Vorschub 


zeichenkette a Ausgang schleifed 

in Ordnung 
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ausgang 


bezeichner 

B schleifec 

bezeichner 

B enno 

operator >« 


bezeichner 

s monika 


auBgabe mit Vorschub 

seichenkette s Ausgang schleifec fehlerhaft 
endlosBchleifenende 
bezeichner s schleifec 
ausgabe mit Vorschub 

zeichenkette s Ausgang schleifec in Ordnung 


ausgang 


bezeichner 

B schleifeb 

bezeichner 

B gudrun 

operator >* 

s 

bezeichner 

B monika 


ausgabe mit Vorschub 

zeichenkette i Ausgang schleifeb fehlerhaft 
endlosschl eifenende 
bezeichner i schleifeb 
ausgabe mit Vorschub 

zeichenkette b Ausgang schleifeb in Ordnung 


ausgang 


bezeichner 

1 schleifea 

bezeichner 

B gudrun 

operator « 


bezeichner 

8 monika 


ausgabe mit Vorschub 

zeichenkette b Ausgang schloifea fehlerhaft 
endlosBchleifenende 
bezeichner b schleifea 
ausgabe mit Vorschub 

zeichenkette b Ausgang schleifea in Ordnung 
ausgabe mit Vorschub 
zeichenkette b Testprogramm beendet, 
programmbezeichner pruefung 
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bezeichner n ausgangtest 
Programm ende 
Programm ende 


Bei spielProgramm 'abzaehlen' s 


programmbezeichner definitlon 

bezeichner 8 abzaehlen 

definitionsteil anfang 

bezeichner b Index 

bezeichner i untergrenze 

bezeichner i obergrenze 

definitionsteil ende 

uebertrage 

f1iesskommazahl 

ganzzahl s 1 

dezimalstel1en 

ganzzahl i 0 

kein exponent 

bezeichner s untergrenze 

uebertrage 

f1iesskommazahl 

ganzzahl s 10 

dezimalstel1en 

ganzzahl b 0 

kein exponent 

bezeichner s obergrenzo 

indexschleife 

bezeichner i Index 

bezeichner i untergrenze 

bezeichner s obergrenze 

Bchleifenanfang 

ausgabe mit Vorschub 
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bezeichner a Index 
indexechleifenende 
programmbezeiebner pruefung 
bezeichner a abzaehlen 
Programm ende 
Programm ende 


Bei Bpi elProgramm partest' : 


programmbezeiebner definition 

bezeichner i partest 

definitionsteil anfang 

bezeichner a indexa 

bezeichner a indexb 

bezeichner a indexc 

bezeichner a untergrenze 

bezeichner a obergrenze 

bezeichner a zahl 

bezeichner a eins 

definitionstei1 ende 

uebertrage 

f1iesskommazahl 

ganzzahl a 1 

dezimalstel1en 

ganzzahl a 0 

kein exponent 

bezeichner a untergrenze 

uebertrage 

f1iesskommazahl 

ganzzahl a 10 

dezimalstel1en 

ganzzahl a 0 

kein exponent 


196 


bezeichner s obergrenze 
uebertrage 
■fl 1 esskommazahl 
ganzzahl b 0 
dezimalstel1en 
ganzzahl b 0 
kein exponent 
bezeichner b zahl 
uebertrage 
f1iesskommazahl 
ganzzahl i 1 
dezimalstellen 
ganzzahl b 0 
kein exponent 
bezeichner b eins 
indexschleife 
bezeichner b indexa 
bezeichner b untergrenze 
bezeichner s obergrenze 
Schlei -fenan-fang 
i ndexschl ei -fe 
bezeichnen b indexb 
bezeichner b untergrenze 
bezeichner b obergrenze 
Bchl ei -f enanf ang 
i ndexschl ei -fe 
bezeichner b Indexe 
bezeichner b untergrenze 
bezeichner b obergrenze 
sch 1 ei -fenan-fang 
addiere 

bezeichner b eins 
bezeichner b zahl 
bezeichner b zahl 
indexschleifenende 
i ndexschl ei -fenende 


indexschleifenends 
ausgabe mit Vorschub 
zeichenkette b Das Ergebnis ist i 
ausgabe mit Vorschub 
bezeichner s zahl 
programmbezeichner pruefung 
bezeichner : partest 
Programm ende 


I 
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Bei spiel Programm 'uprogtest' s 


programmbezeichner definition 

bezeiebner i uprogtest 

de-f i ni ti onstei 1 anfang 

bezeichner i test 

bezeichner s eins 

definitionsteil ende 

uebertrage 

f1iesskommazahl 

ganzzahl 8 1 

dezimalstel1en 

ganzzahl b 0 

kein exponent 


bezeichner b 

ei ns 

sprungmarke 


bezeichner 8 

anfang 

ausgabe mit 

Vorschub 

zeichenkette 

8 Unterprogramm 

eingabe 


bezeichner b 

test 

Vorschub 


entscheidüng 


bezeichner b 

test 

operator /« 


bezeichner a 

ei ns 

rufe 


bezeichner b 

a 

sonst 


rufe 


bezeichner b 

b 

entscheidungsende 

springe 


bezeichner b 

anfang 
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programmbezeichner pruefung 
bezeichner : uprogtest 
unterprogrammbez ei ebner definition 
bezeichner i a 
ausgabe mit Vorschub 
zeichenkette i Unterprogramm a. 
Unterprogrammbezeichner pruefung 
bezeichner b a 

unterprogrammbezei ebner definition 
bezeichner i b 
ausgabe mit Vorschub 
zeichenkette i Unterprogramm b. 
unterprogrammbezei ebner pruefung 
bezeichner i b 
Programm ende 
Programm ende 


Beispielprogramm 'sprung' z 


programmbezeichner definition 

bezeichner b sprung 

definitionsteil anfang 

bezeichner b eins 

bezeichner b test 

definitionsteil ende 

uebertrage 

f1iesskommazahl 

ganzzahl 3 1 

dezimalBtel len 

ganzzahl b 0 

kein enponent 

bezeichner b eins 

sprungmarke 
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bezeichner i anfang 
eingabe 

bezeichner a test 
Vorschub 
entscheidung 
bezeichner b test 
operator » 
bezeichner b eins 
sonst 
springe 

bezeichner b anfang 
entscheidungsende 
programmbezeiebner pruefung 
bezeichner b Sprung 
Programm ende 
Programm ende 
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Die Semantische Analyse und die Codegenerierung 


Dieses Programm nimmt nun die Spur des MINIATUR-Programmes 
aut, die die syntaktische Analyse aut die Datei 

'MINIATUR-SYN' geschrieben hat. Die 'Spuren' der 
E^ei sp i el Programme haben Sie aut den letzten Seiten schon 
vorgetunden- 

In dem tolgenden Programm ist ab der Zeile 61000 ein 
Unterprogramm, das es gestattet die Spuren in der 
verschlüsselten Form auszugeben. Geben Sie nach dem Laden 
des Programms die Zeile 'RUN 61000' ein- Aut dem Drucker 
erscheint dann eine Reihe von Zahlen, die Sie mit Hilte der 
Tabelle über die semantischen Symbole entschlüsseln können. 

Bei der semantischen Prütung wird dann aus dem 

MINIATUR-Programm ein Assemblerprogramm gemacht- 
Das erzeugte Assemblerprogramm können Sie mit 
'L0AD"MINI-ASS",8"' in den Rechner laden und listen lassen. 
Sie können so das MINI ATUR--Programm mit dem erzeugten 
Assemblerprogramm vergleichen. Die Wirkungsweise der 
semantischen Analyse und der Codegenerierung ertassen Sie am 
Besten, indem Sie vertolgen, wie die MINIATUR-Programme 
umgesetzt werden. 

Das Assembler“Programm können Sie mit dem Assembler in 
Maschinensprache übersetzen. Als Namen müssen Sie nach dem 
Startern des Assemblers 'MINI-ASS' angeben. 
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Das Listing der semantischen Analyse und der Codegeneratian 


e 


500 dim b$<500> a dim f/. (500) 

510 dim i(40) a iz^O a lz«0 

1000 print "uebersetzung mit spur (j/n) ?" 

1010 get vt'$ i if w-lfos"" then 1010 
1020 i-f then sp«! 

1030 print "Protokoll auf den drucker (d) oder schirm (s) ?" 

1040 get w$ a if then 1040 

1050 if w.$:“"d" then pr“4 a goto lOBO 

1060 if w$="b" then pr“3 a goto 1080 

1070 goto 1040 

1080 print "bitte die datendiskette einlegen." 

1090 print "weiter mit < return > ." 

1100 get w$ 8 if w:$»"" then 1100 

1110 open pr,pr 

1120 open 15,8,15,"i" 

1130 print#15,"samini-ass" 

1140 input#15,en,em$,et,eB 

1150 if enOl then goto 60020 

1160 ou«9 8 open ou,8,ou,"08mini-ass,p,w" 

1170 gosub 60000 

1180 in®8 8 open in , 8 , in , "Oaminiatur— syn,B,r" 

1190 gosub 60000 

1200 pc“2049 a rem basic startadresse ihres rechners 
1210 p1“1nt(pc/256) 

1220 p2«pc-pl*256 
1230 print#ou,chr-^ (p2) chr$ (pl) j 
2000 rem ausgabe der Unterprogramme 
2010 ou.$:«"lda #14" a gosub 59000 
2020 ou$«"jBr <:ffd2" a gosub 59000 
2030 oulf“"lda #144" a gosub 59000 
2040 ou^«"jBr :»ffd2" a gosub 59000 
2050 ou:>»"lda #6" a gosub 59000 
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2060 ou$»''std 532B1" i gosub 59000 

2070 ou»»"BtÄ 53280" i gosub 59000 

2080 declaration" i gosub 59000 

2090 ou<:»"zvor -m" t gosub 59000 

2100 ou.>»"lda #13" i gosub 59000 

2110 ou$«"Jsr ♦■ffd2" t gosub 59000 

2120 ou.t«"rts" s gosub 59000 

2130 ou$®"auB .m" i gosub 59000 

2140 ou#«"jsr ♦bddd" b gosub 59000 

2150 ou$«"ldx #0" I gosub 59000 

2160 ou.>«"ausp .m" s gosub 59000 

2170 ou$«"lda :$0100 ,m" b gosub 59000 

2180 ou$»"beq ause" b gosub 59000 

2190 ou$«"jBr :$f-fd2" b gosub 59000 

2200 ou$“"lnM" B gosub 59000 

2210 ou$""bne ausp" b gosub 59000 

2220 ou$«"ause .m" b gosub 59000 

2230 ou3|:="rtB" b gosub 59000 

2240 ou’4f«"eln .m" b gosub 59000 

2250 ou*«"lda #»3f" b gosub 59000 

2260 ou<»"jsr ♦ffd2" b gosub 59000 

2270 ou$«"ldx #0" B gosub 59000 

2280 ou:^»"einl .m" b gosub 59000 

2290 ou$»"jBr ♦f-Fcf" b gosub 59000 

2300 ou^“"sta $0220,x" b gosub 59000 

2310 ou$“"inx" b gosub 59000 

2320 ou$«"cmp #$d" b gosub 59000 

2330 ou$*"bne einl" b gosub 59000 

2340 ou$«"jsr $f-fd2" b gosub 59000 

2350 ou$»"lda #$02" b gosub 59000 

2360 ou$»"sta $23" b gosub 59000 

2370 ou$“"lda #$20" b gosub 59000 

2380 ou$«"sta $22" b gosub 59000 

2390 ou$“"dex" b gosub 59000 

2400 ou$'»"txa" b gosub 59000 

2410 ou$«"jsr $b7b5" b gosub 59000 
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2420 ou$»"rts“ s gosub 59000 
2430 ou<:«".c" I goaub 59000 

2440 ou'4?«".t '•+chr:$(34>4-'*zeile j "+chr$<34> i gosub 59000 

2450 ou$“"spur .m" i gosub 59000 

2460 ou'|:“"jBr zvor" i gosub 59000 

2470 ou*«"ldy # ch" s gosub 59000 

2480 ou:$«"lda # cl" s gosub 59000 

2490 ou$“"Jsr ♦able" a gosub 59000 

2500 ou$«"rts" a goaub 59000 

2990 ou$“"decl arat ion .m" a gosub 59000 

5000 rem Semantik schleife 

5010 get#in,i$ 

5020 getttin,i# a if i$na"»' then i®0 a goto 5040 
5030 i«asc(i.»:) 

5035 if i=55 then 9000 
5040 if i<>253 then 6000 
5050 get#ln,i$ a i»aBc<i») 


5060 

if 

i “1 

then 

10000 

5070 

if 

i »2 

then 

10500 

5080 

if 

i»3 

then 

11000 

5090 

if 

i«n4 

then 

11500 

5100 

if 

i«5 

then 

12000 

5110 

if 

i «6 

then 

12500 

5120 

if 

i»7 

then 

13000 

5130 

if 

iB»8 

then 

13500 

5140 

if 

i«9 

then 

14000 

5150 

if 

i»10 

then 

14500 

5160 

if 

i “11 

then 

15000 

5170 

if 

i “12 

then 

15500 

5180 

if 

i«13 

then 

16000 

5190 

if 

i“14 

then 

16500 

5200 

if 

i«15 

then 

17000 

5210 

if 

i “16 

then 

17500 

5220 

if 

1«17 

then 

18000 

5230 

if 

i“lB 

then 

18500 

5240 

if 

i “19 

then 

19000 
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5250 

if 

i«20 

then 

19500 

5260 

if 

i“21 

then 

20000 

5270 

if 

i“22 

then 

20500 

5280 

if 

i«23 

then 

21000 

5290 

if 

i °*24 

then 

21500 

5300 

if 

i“25 

then 

22000 

5310 

if 

i«26 

then 

22500 

5320 

if 

i=27 

then 

23000 

5330 

if 

i»28 

then 

23500 

5340 

if 

i “29 

then 

24000 

5350 

if 

i“30 

then 

24500 

5360 

if 

i =31 

then 

25000 

5370 

if 

i“32 

then 

25500 

5380 

if 

i“33 

then 

26000 

5390 

if 

i“34 

then 

26500 

5400 

if 

i“35 

then 

27000 

5410 

if 

i“36 

then 

27500 

5420 

if 

1«37 

then 

28000 

5430 

if 

1“30 

then 

28500 

5440 

if 

i“39 

then 

29000 


5500 printttpr,"semantik programmfehler !!!!!" 

5510 stap 

6000 i-f i«254 then 30000 
6010 if i«=H255 then 31000 

6020 pri nt#pr , "semanti k programm-fehler !!!!!" 

6030 stop 

9000 rem variablende-finition 
9010 i-f df“0 then gosub 56040 

9020 i-f df«0 then mB$«"variablen sind im de-finitionstei 1 
erklaeren !"s goto58700 
9030 gosub 56040 

9040 be4P“il|: 3 ty‘/,a3 s gosub 57000 

9050 i-f sc“»l then me*=»"bezeiebner schon de-finiert !" 

3 goto 50700 
9060 gosub 57500 

9070 ou‘|:'»be$+" .bl 5" i gosub 59000 
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9080 goto 5020 
9090 8 

10000 rem programmbezeiebner de-finition 
10005 goeub 56000 

10010 be:$“il$ : ty*/.= l b go®ub 57000 
10020 if sc«l then me$»="programmbezeiebner oebon 
definiert !" b goto 50700 
10030 gosub 57500 
10040 goto 5020 
10050 3 

10500 rem definitionstei1 anfang 
10505 ou$«"Jmp def1nitionsende" b gosub 59000 
10507 ou$»"immersys .bl 5" b gosub 59000 
10510 df=l 8 goto 5000 
10520 B 

11000 rem defitionstei1 ende 

11005 ou-4?=»"def i ni ti onsende .m" b gosub 59000 

11010 df=0 8 goto 5000 

11020 3 

11500 rem programmbeseiebner pruefung 
11505 gosub 56000 

11510 be«:«il$ 8 ty7.»l b gosub 57000 
11520 if sc^O tben me.$®"programmbezeiebner niebt 
definiert !" b goto 58700 
11540 goto 5020 
11550 B 

12000 rem programm ende 
12010 ou4f«"lda #-4f76‘' 8 gosub 59000 
12020 ou$«'‘ldy #$a3" s gosub 59000 
12030 ou'^“"Jsr ^sable" b gosub 59000 
12040 ou:^“‘'jmp 4fa480" 3 gosub 59000 
12050 ou.l?“".end" b gosub 59000 
12060 goto 5000 
12070 B 

12500 rem unterprogrammbezeiebner definition 
12505 gosub 56000 
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12510 be$=“il$ s ty7.»2 i gosub 57000 
12520 i-f ffic“l then m©$»"programmb©zeiebner schon 
definiert !" i goto 50700 
12530 gosub 57500 

12535 ou$="u-"+be$+" .m" s gosub 59000 
12540 goto 5020 
12550 s 

13000 rem Unterprogrammbezeichner pruefung 
13005 gosub 56000 

13010 s ty7.»2 8 gosub 57000 

13020 if sc^O then me$»"programmbez 0 iebner nicht 
definiert !" i goto 50700 
13030 ou.$»"rtB" 8 gosub 59000 
13040 goto 5020 
13050 8 

13500 rem ausgabe 
13510 gosub 13600 
13520 goto 5020 
13530 8 

13600 gosub 55000 

13610 if i<>255 then me<:“"neueB symbol erwartet !" 

8 gosub 50500 8 return 
13630 gosub 55000 

13640 if i“55 then il$="" b gosub 56040 8 goto 13000 
13650 il:i^="" S gosub 56340 
13652 d9»d9+l 

13654 d9$»mid$<5tr$(d9),2,1en<str$(d9))“1) 

13656 ou$='"jmp de"+d9$ 8 gosub 59000 

13660 ou<:“".c" 8 gosub 59000 

13670 oLr4P»".t •'+chr|: (34)+1 l$+chr$ (34) 8 gosub 59000 

13675 ou^=''de"+d9#+" .m" a gosub 59000 

13600 ou$:«"ldy # ch" 8 gosub 59000 

13690 ou$="lda # cl" 8 gosub 59000 

13700 ou.>«'"Jsr ♦able" b gosub 59000 

13710 return 

13000 be$-»il$ 8 ty7.«3 8 gosub 57000 
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13810 if sc=0 then me$«"bezBichnor nicht definiert !" 

I goto 50700 
13820 gosub 54000 

13030 ou<f®"j3r aus" i gosub 59000 
13840 return 
13050 I 

14000 rem ausgabe mit Vorschub 
14010 gosub 13600 

14020 ou$="jBr zvor" s gosub 59000 
14030 goto 5020 
14040 8 

14500 rem Vorschub 

14510 ou:t="jsr zvor" b gosub 59000 
14520 goto 5000 
14530 8 

15000 rem schirmfrei 
15010 ou<;«"jsr •4Pe544" 8 gosub 59000 
15020 goto 5000 
15030 8 

15500 rem cursorspalte 
15510 gosub 56500 

15520 if val(il$)>40 then me$“"Bpaltenzahl groesser 
als 40!" 8 goto 58700 

15530 if val<il$)<l then me$'«"spaltenzahl kleiner als 1 !" 

8 goto 50700 

15540 out“"sec" 8 gosub 59000 
15550 out“"Jsr tfffO" 8 gosub 59000 
15560 out“"clc" 8 gosub 59000 

15570 out“"ldy #"+Btrt(val(iIt) -1 ) 8 gosub 59000 
15500 out“"jsr tfffO" b gosub 59000 
15590 goto 5020 
15600 I 

16000 rem cursorzeile 
16010 gosub 56500 

16020 if val(ilt)>24 then met“"zei1enzahl groesser als 24!" 
8 goto 58700 
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16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16500 

16510 

16520 

16530 

16540 

16550 

17000 

17010 

17020 

17030 

17040 

17200 

17210 

17220 

17230 

17240 

17250 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 


if val<il$)<l then me$«"zei1enzahl kleiner als 1 !" 

s goto 58700 

ou$:»"sec" i gosub 59000 

ou<:=s"jBr 8 goBub 59000 

ou:<f«"clc" 8 gosub 59000 

ou$«"ldM #"+Btr*(val <i 1$)-1> b gosub 59000 
ou$="jBr iPfffO" 8 gosub 59000 
goto 5020 

8 

rem ausgabe ascii 
gosub 56500 

ou*«'’lda #" + il$ 8 gosub 59000 
ou'^«"jBr $ffd2" 8 gosub 59000 
goto 5020 


rem geraet 
gosub 56000 

if ii*«"Bchirm" then 17200 
if i l$“»"drucker" then 17300 
me<:»"dieseB geraet kenne ich nicht !" 
rem geraet schirm 
ou$'«"Jsr zvor" 8 gosub 59000 
OLr^="jsr $ffcc“ a gosub 59000 
ou*="lda #4" 8 gosub 59000 
ou$="jBr ♦ffc3" 8 gosub 59000 


goto 5020 
rem geraet drucker 
ou*«"lda #4" 8 gosub 59000 
ou.t“"sta 184" 8 gosub 59000 
ou<:«»"Bta 186" 8 gosub 59000 
ou$«"lda #7" 8 gosub 59000 
ou$“"Bta 185" 8 gosub 59000 
ou$«"lda #0" 8 gosub 59000 
ou:$««"Bta 183" 8 gosub 59000 
ou-$“"jsr -^ffcO" 8 gosub 59000 
ou$«"ldx #4" 8 gosub 59000 


goto 58700 
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17400 

17410 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

18000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

18090 


ou4:«"jsr ♦•f-fc9" 8 gosub 59000 
goto 5020 
rem rahmen 
gosub 56000 

f-f sa-l 

if i l$“"Bchwarz" thon ■Ff“0 
if i l'^=»" wei as" then ff«! 
if il<:“"rot" then ff=»2 
if 1 l$na"tuerkis" then f-f«3 
if i 1$»"vlolett" then f'f«4 
i-f il4?«"gruen" then ■ff»5 
if il*»"blau" then ff«6 
if il$«"gelb" then ff«7 
if i l<:""orange" then ff“8 
if illf«"braun" then ff“9 
if il*«"hel1 rot" then ff^lO 
if il:$="graua" then ff»ll 
if il$“"graub" then ff“12 
if i l-^«"grauc" then ffal5 
if il$«"helIgruen" then ff«13 
if il*="hellblau" then ff«14 

if ff“-l then met“"dieBe färbe kenne ich nicht 
8 goto 58700 

ou<:«"lda #"+str:$<ff) 8 gosub 59000 

ou*«"Bta 53280" 8 gosub 59000 

goto 5020 

rem hintergrund 

gosub 56000 

ff=-l 

if il^“"Bchwarz" then ff“0 
if il:^«"weiBs" then ff«l 
if il*“>"rot" then ff«2 
if il^»"tuerkis" then ff«3 
if il*»"violett" then ff«4 
if il^«"gruen" then ff«»5 
if il*«"blau" then ff«6 
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18100 

18110 

18120 

18130 

18140 

18150 

18160 

18170 

18180 

18190 

18200 

18210 

18220 

18500 

18510 

18520 

18530 

18540 

18550 

18560 

18580 

18590 

18600 

18610 

18690 

18700 

18710 

18720 

19000 

19010 

19020 

19030 

19040 


if il<:»"gelb" then ff»7 
if i l<:«"orange" then ff«8 
if il$“"braun" then ff«9 
if il$«"hellrot" then ff“10 
if i l.$:»"graua" then ff = ll 
if il$“"graub" then ff»12 
if i l'4P“"grauc" then ff«15 
if il$“"helIgruen” then ff“13 
if il$“"helIblau" then ff«14 

if ff«-l then me*“"dieBe färbe kenne ich nicht 
s goto 58700 

ou$“"lda #"+Btr$<ff) t gosub 59000 
ou|:«"sta 53281 •• i gosub 59000 
goto 5020 
rem schrift 
gosub 56000 

ffan-l 

if i l^w" schwarz " then ff««144 
if il:>»"weiss" then ff“5 
if il$«"rot" then ff«28 
if i l$:«"purpur" then ff'=156 
if i l^-'^gruen" then ff»30 
if i l.|:»"blau" then ff«31 
if il$«"gelb" then ff»158 
if il.$:»"cyan" then ff»159 

if ff“~l then me$»"dieBe färbe kenne ich nicht 
s goto 58700 

ou4:»"lda #"+Btr$<ff> s gosub 59000 
ou:if«"jBr ♦ffd2" 8 gosub 59000 
goto 5020 
rem eingabe 
gosub 56000 

be*»il’4F 8 ty7.»3 i gosub 57000 

if Bc^O then meJ>«"bezeiebner nicht definiert !" 
I goto 58700 

ou<:»"jsr ein" b gosub 59000 
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19050 goaub 53000 

19060 goto 5020 

19400 rem uebertrage variable 

19410 goaub 56000 

19420 be<f«il’4P s ty"/.»3 s goaub 57000 

19430 i-f sc«0 then me$«"bezelebner nicht definiert !" 

8 goto 5*3700 
19440 goaub 54000 

19450 goaub 56030 

19460 be$»il$ s ty7.»3 i goaub 57000 

19470 if 3C“0 then me*«"be 2 eiebner nicht definiert !" 

I goto 58700 
19480 goaub 53000 
19490 goto 5020 
19500 rem uebertrage 
19510 va*«"" 

19520 goaub 55000 b goaub 55000 i goaub 55000 
19524 if i»41 then 19400 
19530 goaub 56500 i va$«il$ 

19535 goaub 55000 3 goaub 55000 

19540 if i<>49 then 19600 

19550 va4:«va<f+"." i goaub 56500 i va<:“vat+il$ 

19555 goaub 55000 i goaub 55000 
19600 if 1051 then 19900 
19610 va$«va$+"e" 

19620 goaub 55000 i goaub 55000 
19630 if i=59 then 19700 
19640 if i»52 then vat«va.>+" + " 

19650 if i»53 then va$ava$+"-." 

19700 i , goaub 56540 

19710 va<:«va^+il4? 

19900 goaub 51000 
19910 goaub 56000 

19920 bet«il$ b ty"/.»3 b goaub 57000 

19930 if ac“0 then me$“"bezeiebner nicht definiert !“ 
B goto 58700 
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19940 d9»d9+l 

19942 d9$»mid$(str$(d9) , 2,1 en (str$ <d9) )--l> 

19946 oü<:«"jmp de"+d9.> i goaub 59000 
19950 ou*:»"dd"+d9$+" .m" 8 goaub 59000 

19952 ou-f“" .b"+Btr$<vO) i goaub 59000 

19953 ou$«'' .b"+Btr$(vl) s goaub 59000 

19954 oulf»" .b"+3tr.$:<v2) s goaub 59000 

19955 ou$»" ,b"+Btr$(v3) b goaub 59000 

19956 ou.^=" . b"+str'^ (v4) : goaub 59000 
19960 ou4P“"de"+d9$+" .m" s goaub 59000 
19962 hl-*«be:$ s be$“"dd"+d9.> i goaub 54000 
19970 be$=hi$ b goaub 53000 

19980 goto 5020 
19990 B 

20000 rem addiere 
20010 goaub 56000 

20020 be^«il$ s ty7.«3 8 goaub 57000 

20030 if ac“0 then me$“"b© 2 eiebner nicht definiert !" 

B goto 58700 
20040 goaub 54000 
20050 goaub 56030 

20060 be’^^il^ b ty*/.“3 b goaub 57000 

20070 if 3C«0 then me<:“"bezeiebner nicht definiert !" 
8 goto 58700 

20080 ou'45“"ldy #hb-"+be$ s goaub 59000 
20090 ou$«"lda #lb-‘'+be$ b goaub 59000 
20100 ou'$»"jer .$b867" : goaub 59000 
20110 goaub 56030 

20120 be.$:«il’|f b ty7.«3 b goaub 57000 

20130 if ac“0 then me$«"bezeiebner nicht definiert !" 

3 goto 58700 
20140 goaub 53000 
20150 goto 5020 
20500 rem aubtrahiere 
20510 goaub 56000 

20520 be.t»il$ 8 tyV,«Z b goaub 57000 
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20530 i-f sc=0 then me^«"bezeichner nicht definiert !" 

s goto 50700 
20540 gosub 54000 
20550 goaub 56030 

20560 be$«il$ b ty7.=3 b gosub 57000 

20570 if sc=0 then me'^“"bezeiebner nicht definiert •" 
8 goto 58700 

20500 ou.>=>"ldy #hb-"+be.> b gosub 59000 
20590 ou:^»"icja #lb-"+be:t b gosub 59000 
20600 ou*“»"Jsr 4fb05O" b gosub 59000 
20610 gosub 56030 

20620 be-^«il.$ b ty7.=»3 8 gosub 57000 

20630 if sc“0 then me.$e"bezeiebner nicht definiert !" 

3 goto 50700 
20640 gosub 53000 
20650 goto 5020 
21000 rem multipliziere 
21010 gosub 56000 

21020 be:$:=il$ s tyy.“3 b gosub 57000 

21030 if sc“0 then me|:»"bezeiebner nicht definiert !" 

3 goto 58700 
21040 gosub 54000 
21050 gosub 56030 

21060 be<:»il$ 8 ty"/.«3 8 gosub 57000 

21070 if sc“0 then me:$="bezeiebner nicht definiert !" 
8 goto 50700 

21080 ou:$:«"ldy #hb-"+be$ s gosub 59000 
21090 ou^^^'^lda #lb-"+be# b goaub 59000 
21100 ou$“"jsr ♦ba20" b gosub 59000 
21110 gosub 56030 

21120 be:>=i 1:$ s ty'/.=3 s gosub 57000 

21130 if sc^O then me#»"bezeiebner nicht definiert !'* 
8 goto 58700 
21140 gosub 53000 
21150 goto 5020 
21500 rem dividiere 
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21510 goaub 56000 

21520 be$«il# s ty7.=3 i goaub 57000 

21530 if sc«0 then me$“"bezeiebner nicht definiert !" 

B goto 58700 
21540 hi$“bel? 

21550 goaub 56030 

21560 betrat i ty7.»3 s goaub 57000 

21570 if ac“0 then me$“"be 2 eiebner nicht definiert !" 

: goto 58700 
21575 goaub 54000 

21580 ou:t=»"ldy #hb-"+hi:^ s goaub 59000 
21590 ou:$="lda #lb-"+hi:$ b goaub 59000 
21600 ou$«"jBr 4?bb0f" b goaub 59000 
21610 goaub 56030 

21620 be:$®il$ s ty'/.«3 b goaub 57000 

21630 if sc“0 then me$“"bezeiebner nicht definiert !" 

: goto 58700 
21640 goaub 53000 
21650 goto 5020 
22000 rem potenziere 
22010 goaub 56000 

22020 be$»=il$ s ty'/.“3 s goaub 57000 

22030 if ac“0 then me$«"bezeiebner nicht definiert !" 

B goto 58700 
22040 goaub 52000 
22050 goaub 56030 

22060 b ty"/.»3 8 goaub 57000 

22070 if 30=0 then me$“"bezeiebner nicht definiert !" 

B goto 58700 
22080 goaub 54000 

22090 out»"Jar :$bf7b" : goaub 59000 
22110 goaub 56030 

22120 be:>»il^ 8 ty7.«3 b goaub 57000 

22130 if ac“0 then me$«"bezeiebner nicht definiert !" 

3 goto 58700 
22140 goaub 53000 
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22150 

22500 

22510 

22520 

22530 

22540 

22550 

22560 

22570 

22500 

22590 

22600 

22610 

22620 

22630 

22640 

22650 

22660 

22670 

22600 

22690 

22700 

22705 

22710 

22720 

22000 

22010 

22020 

22030 

23000 

23500 

23505 

23506 


goto 5020 
rem bilde 
goBub 56000 

M 

if i l$«’'absolut" then f-f$«"$bc50" 
if i 14P“"actangens" then ff•|p“"‘$e30e" 
i-f i 1:$:»"Cosinus" then f-f$«"$e264" 
if i l-4P=«"eMponent" then ff^«"$bfed" 
if i 1:$:«"integer" then ff$“"^bccc" 
if i !♦“" 1 ogarithmus" then ff$«":>b9ea" 
if i l$“"Bpeicherwert" then ff$'="$b0Od" 
if i 14?»"zufall " then f f .>»"<:0O97" 
if il$»"vorzeichen" then ff$»"$bc39" 
if il:$“"sinus" then ff$«"'4Fe26b" 
if i l<:“"quadratwurzel " then f f♦“":*:bf 71" 
if i l$«"tangens" then f f $»"*^e2b4" 

if ff^sa"" then me$“"dieBe funktion kenne ich nicht !" 
8 goto 50700 
gosub 56030 

be$“il<: 8 ty“/."3 8 gosub 57000 

if ffic®0 then me$“"bezeiebner nicht definiert !" 

8 goto 50700 
gosub 54000 

ou:>»"jsr "+ff# 8 gosub 59000 
gosub 55000 i gosub 55000 
if i«27 then 22000 

gosub 56000 8 gosub 55000 8 gosub 55000 
be.>“il:$ 8 ty7.«3 8 gosub 57000 

if sc«0 then me$«"bezeiebner nicht definiert !" 

8 goto 50700 

gosub 53000 

goto 5000 

rem punkt 

rem entscheidung 

efaxef + l B i 2 «iz + l 8 i<iz)«ef 

ef♦«mid^<str*(i <iz) ) ,2,len<str<:<i <iz) ) ) ) 
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23310 gosub 56000 

23520 be$««il# b ty“/.»3 b goaub 57000 

23530 if sc=0 then me$®"be 2 eiebner nicht definiert !" 

B goto 58700 
23540 gosub 54000 
23550 gosub 55000 b gosub 55000 
23560 op«i 
23570 gosub 56000 

23580 a ty7.=3 s gosub 57000 

23590 if sc«0 then mB<:«"be 2 eiebner nicht definiert !" 
s goto 58700 


23600 

ou$ 

:«"ldy 

#hb-“" 

+be$ B gosub 

59000 

23610 

OU:$ 

:="lda 

#lb~" 

+be$ 3 gosub 

59000 

23620 

OU$ 

jsr 

♦beSb 

i" B gosub 

» 59000 

23630 

if 

op=43 

then 

ou$="cmp 

#0’' 

8 gosub 59000 

23640 

if 

opflo43 

then 

QU$ns”beq 

th" 

+eff 8 gosub 59000 

23650 

if 

op«44 

then 

ou'|;a"cmp 

#0'‘ 

8 gosub 59000 

23660 

if 

op“44 

then 

ou$“"bne 

th" 

+ef<: 8 gosub 59000 

23670 

if 

op»45 

then 

ou$“‘'cmp 

#$ff" 8 gosub 59000 

23680 

if 

op“45 

then 

ou$«"beq 

th" 

+ef$ 8 gosub 59000 

23690 

if 

op“46 

then 

ou.>»"cmp 

#1" 

3 gosub 59000 

23700 

if 

op»46 

then 

ou$'«"bne 

th" 

+ef$ B gosub 59000 

23710 

if 

op“47 

then 

ou.f«"cmp 

#1" 

8 gosub 59000 

23720 

if 

op=47 

then 

ou$»"beq 

th" 

+ef$ 8 gosub 59000 

23730 

if 

op=»48 

then 

ou.$«"cmp 

#$ff" B gosub 59000 

23740 

if 

op»4B 

then 

ou<^“"bne 

th" 

+ef# B goaub 59000 

23800 

ou4P“" Jmp 

el‘'+ef'|: 8 gosub 59000 


23810 ou:$»''th"+ef$+" ,m" s gosub 59000 
23820 goto 5020 
24000 rem sonst 

24005 ef*:»mid$(str$(i <iz) ) , 2,1 en (strf < i (Iz) ) ) ) 

24010 ou.|f“"jmp en"+ef|: b gosub 59000 

24020 ou$«"el "+ef:$+‘' .m" s gosub 59000 

24030 goto 5000 

24500 rem entscheidungsende 

24510 ef$»mid$(Btr$(i(iz)),2,len(str*(i(iz)))) 
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24520 ou'^»"en"+ef♦+" .m" i go«ub 59000 

24525 i2«iz-l 

25000 rem endlosachleife 

25005 goaub 56000 

25010 be$»il# s ty'/.=»4 t goaub 57000 
25020 if BC“1 then me$“"achlei-fenbezelebner achon 
definiert !" s goto 50700 
25030 goaub 57500 

25035 ou$=«"e-"+be4f+" .m" : goaub 59000 

25040 goto 5020 

25500 rem endloaachleifenende 

25505 goaub 56000 

25510 be-^-il-^ s ty7.«4 i goaub 57000 
25520 if Bc*0 then me$“"3chleifenbezeiebner nieht 
definiert !" s goto 50700 
25530 ou$“"Jmp e-"+il$ i goaub 59000 
25535 ou.$:«"ee“" + i 14f+" .m" s goaub 59000 
25540 goto 5020 
26000 rem ausgang 
26005 goaub 56000 

26010 be|:»il^ i ty7.=>4 b goaub 57000 
26020 if Be“0 then mB$“"Behleifenbezeiebner nieht 
definiert !" : goto 50700 
26030 Ba$«be$ 

26040 goaub 56030 

26050 be$«il$ b ty‘/.“3 b goaub 57000 

26060 if sc=0 then me.$=»"bezei ebner nicht definiert ! “ 
B goto 50700 
26070 goaub 54000 
26000 goaub 55000 b goaub 55000 
26090 op«i 
26100 goaub 56000 

26110 s ty"/.»3 s goaub 57000 

26120 if 3C«0 then me:$:“"bez ei ebner nicht definiert !" 
3 goto 50700 

26130 ou^«"ldy #hb~"+be<: b goaub 59000 
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26140 ou«:="lda #lb~"+be;$ i go©ub 59000 
26150 ou:>“"j©r $bc5b" s gosub 59000 
26160 d9«d9+l 

26170 d9$«mld:$<Btrl^(d9) , 2,1 en (atr$ <d9) )~1) 


26200 

if 

op='43 

then 

ou$="cmp 

#0" 

8 gosub 59000 

26210 

if 

op»43 

then 

ou$'«"bne 

BZ- 

"+d9$ 8 gosub 59000 

26220 

if 

op=44 

then 

ou$as"cmp 

#0" 

1 gosub 59000 

26230 

if 

op“44 

then 

ou$«"beq 

BZ- 

"+d9$ 8 gosub 59000 

26240 

if 

op«45 

then 

ou^='"cmp 

#255" a gosub 59000 

26250 

if 

op«45 

then 

ou$“"bne 

BZ- 

"+d9$ B gosub 59000 

26260 

if 

opia46 

then 

ou$«"cmp 

#1" 

8 gosub 59000 

26270 

if 

op=46 

then 

ou‘J|P»"beq 

BZ- 

"+d9<: B gosub 59000 

26200 

if 

op«47 

then 

ou^“"cmp 

#1" 

8 gosub 59000 

26290 

if 

op“47 

then 

ou$*"bne 

BZ- 

"+d9$ 8 gosub 59000 

26300 

if 

op=48 

then 

ou$="cmp 

#255" 3 goBub 59000 

26310 

if 

op“40 

then 

ou$«"beq 

sz- 

"+d9:*: B gosub 59000 

26440 

ou*:»" jmp 

ee~"' 

^ss$ 3 gosub 

59000 


26450 ou<:«"sz-'‘+d9$+" .m" * gosub 59000 

26400 goto 5020 

26500 rem indexschlei-fe 

26510 gosub 56000 

26520 b©$«il$ s ty'/.«3 t gosub 57000 

26530 if sc«0 then me:^="bezeiebner nicht definiert !" 

B goto 50700 
26540 dx:f=be$ 

26550 gosub 56030 

26560 beJ:“il|: 8 ty7.»3 s gosub 57000 

26570 if BC^O then me|:'»"bez ei ebner nicht definiert !" 

8 goto 50700 
26500 UM<:«be<: 

26590 gosub 56030 

26600 be^iwilt b ty'/.«3 b gosub 57000 

26610 if sc=»0 then me.^«"bezeiebner nicht definiert !" 

B goto 58700 
26620 ox-4?=be:> 

26630 B$<sl)=dH<: B s1“b1 + 1 
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26640 goto 5020 
27000 rem schlei-fenan-fang 
27010 be'$^ux-$ s gosub 54000 
27020 be$»dx$ 8 gosub 53000 

27030 ou$=»"ia“"+s$ <sl-1)+" .m" s gosub 59000 
27040 be$“dxd>: b gosub 54000 
27050 ou4s®"ldy #hb-"+ox$ 8 gosub 59000 
27060 out»"lda #lb“-‘'+OK<: b gosub 59000 
27070 ou.$:>="Jsr -l^bcSb" s gosub 59000 
27080 d9“d9+l 

27090 d9$=mid^(str$(d9),2,1en<str$(d9))-l) 

27100 ou:>='"cmp #1" s gosub 59000 

27110 ou:$="bne ia"+d9.$: s gosub 59000 

27120 ou.$«"Jmp i e-"+s$ (sl-1 > b gosub 59000 

27130 ou$“"ia"+d9<:+" .m" 8 gosub 59000 

27140 ou*4f»"lda «$eB" b gosub 59000 

27150 ou<:«"ldy #.$bf" b gosub 59000 

27160 ou^»"jBr $b867" s gosub 59000 

27170 be<:«dx^ b gosub 53000 

27180 goto 5000 

27500 rem indexschlei-fenende 

27505 out«"jmp ia-"+B*(sl-1) b gosub 59000 

27510 ou$«"ie“"+B*(sl~l)+" .m" 8 gosub 59000 

27520 sl»sl-l 

27530 goto 5000 

28000 rem sprungmarke 

28010 gosub 56000 

28020 ou*»'‘s-‘'+i 1$+" .m" s gosub 59000 
28030 goto 5020 
28500 rem springe 
28510 gosub 56000 

28520 ou*»"jmp 3-"+ll$ i gosub 59000 
28530 goto 5020 
29000 rem rufe 
29010 gosub 56000 

29020 ou$«"jsr u-" + illf b gosub 59000 
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29030 

30000 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

31000 

31010 

31020 

31030 

31040 

31050 

31055 

31060 

31065 

31070 

31075 

31080 

31085 

31090 

31095 

31100 

31110 

51000 

51005 

51010 

51020 

51030 

51040 

51050 


goto 5020 

rem zeilennummer 

i-f sp=l then ou-4f«‘'j3r spur" j gosub 59000 
get#in,i* b i-f then i$“chr:><0> 

i f ap“l then ou$“"ld>{ #"+str$ (asc (i ♦> ) i goaub 59000 
get#ln,i$ i i$«"" then i$«chr$<0> 

if sp=l then ou$»"lda #"+atr$(asc(i^)) i goaub 59000 
if ap“! then ouf“"jBr $bdcd" i goaub 59000 
goto 5000 
8 

rem programm ende 

print#ou,chr*<0>chr$ <0)j 

cloae ou 

cloae in 

dose 15 

cloae pr 

print B print 

print "ende der aemantiachen analyae 
print : print 

print "der aaaembler kann geladen werden mit a" 
print : print 

print "load"+chr$(34)+"aBBembler"+chr$(34)-f" ,8" 
print s print 

print "das aasemblerprogramm kann geladen 
werden mit s" 
print B print 

print "load"+chr$(34)+"mini-aaB"+chr$<34>-t'" ,8" , 
end 

rem zahl in va$ in interne daratellung umwandeln 
if val<vaJf)"0 then goto 51200 

vl“08 v5»08 v6«129s v7“val(va$)8ifv7<0thenvl“128 
B v7«abs <v7) 

if v7<l and v7<>0 then v6“v6-l b v7“v7*2 b goto 51020 
v8»»v7 

if v8>=2 then v8«int(v8/2) b v5«v5-fl i goto 51040 
v0«v5+v6 
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S1060 v7=(v7~2v3)/2v5 

51070 v7«v7*12B8 vl»vl+int(v7)iv7»v7-int(v7) 

51080 v7“v7*256s v2=i nt < v7)v7“v7-v2 
51090 v7«v7*256:v3=int <v7 )b v7“v7“v3 
51100 v7»v 7*2568v4«int(v7)sv7"v7-v4 
51110 return 

51200 v0“0bvI^Ob v2=0tv3“0i v4«0b return 
52000 rem variable in den arg bringen 
52010 ou«:«"lda #lb-"+be$ b goBub 59000 
52020 ou|:»''ldy #hb-"+bel: b goBUb 59000 
52030 ou$="jBr :fbaBc" b gosub 59000 
52040 return 

53000 rem -fac nach variable bringen 
53010 ou.t:«’'ld>< #lb-"+beJf b goBub 59000 
53020 ou:f:='’ldy tthb-"+be$ b gosub 59000 
53030 ou$«"jBr $bbd4" s gosub 59000 
53040 return 

54000 rem variable in den fac bringen 
54010 ou->»"lda #lb-"+be$: b gosub 59000 
54020 ouJf«="ldy #hb-’'+be$ b gosub 59000 
54030 ou.>«"jsr •^bba2" b gosub 59000 
54040 return 
54050 3 

55000 rem naechstes symbol stellen 
55010 get#in,i.^ 8 if i.*:»"" then i»0 s return 
55020 i“aBc(i<:) b return 
55030 8 

56000 rem bezeiebner erwartet 
56005 il^«"" 

56010 gosub 55000 

56020 if i<>255 then me$«"neueB symbol erwartet !" 

8 gosub 58500 8 return 
56030 gosub 55000 

56040 il$“"" B if i<>55 then me$“"be2eiebner erwartet 
3 gosub 58500 s return 
56050 gosub 55000 
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56060 i-f i»255 then return 
56070 8 goto 56050 

56080 ! 

56300 rem zeichenkette erwartet 
56305 i ! 

56310 go®ub 55000 

56320 if i<>255 then me$'="neueB symbol erwartet !" 

8 goaub 58500 s return 
56330 goaub 55000 

56340 i-f i<>57 then me$“"zeichenkette erwartet !" 

8 goaub 58500 s return 
56350 goaub 55000 
56360 if i»255 then return 
56370 il$“il$+i$ b goto 56050 
56380 8 

56500 rem ganzzahl erwartet 
56505 

56510 goaub 55000 

56520 if i<>255 then me:^“"neuea aymbol erwartet !" 

8 goaub 58500 8 return 
56530 goaub 55000 

56540 if i<>59 then me$“"ganzzahl erwartet !" 

8 goaub 58500 8 return 
56550 goaub 55000 
56560 if i“255 then return 
56570 il$»il»+i$ 8 goto 56050 
56580 8 

57000 rem bezeiebner achon definiert 7 

57005 ac“0 

57010 for t«0 to 1 

57020 if b<:(t)=be4s then if t“/. <t)«ty'/. then ac«l 
57030 next t 
57040 return 
57050 8 

57500 rem bezeichner eintragen 
57510 b’4i:<l)«be.$ 8 t’/.<l)«ty7. 
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57520 

1“1+1 

57530 

return 

57540 

3 

58000 

rem warten nach fehler 

58010 

print#pr,chr$(13) 

58020 

printttpr,me$ 

58030 

print#pr ,chr:f (13) 

58040 

print#pr,"weiter mit < return >." 

58050 

get w$ 8 if w4f<>chr* (13) then 58050 

58060 

goto 5000 

58070 

8 

58500 

rem warten nach fehler 

58510 

prlntttpr,chr$(13) 

58520 

pr i nt#pr , me<: 

58530 

printttpr ,chr*|: (13) 

58540 

print#pr,"weiter mit < return >." 

58550 

get w$ 3 if w$<>chr$(13) then 58550 

58560 

return 

58700 

rem warten nach fehler 

58710 

print#pr,chr$(13) 

58720 

print#pr,me$ 

58730 

print#pr ,chrf- (13) 

58740 

print#pr,"weiter mit < return >." 

58750 

get w$ 8 if w*:<>chr$(13) then 58750 

58760 

goto 5020 

58770 

8 

59000 

rem ausgabe von ou$ auf ou 

59010 

pc»pc + len (ou-t) +5 

59020 

pl«int(pc/256) 

59030 

p2“pc-“p 1*256 

59040 

2l=>Zl+10 

59050 

zl»int(zl/256) 

59060 

z2=zl~z1*256 

59070 

pr i nt#ou, chr$ (p2) chr$ (pl) chr$ (z 2 )chr#( 2 l) p ou:tp ehr* (0) p 

59080 

print#pr,str*(z1)+" "+ou* 

59090 

ou*“"" 
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59100 return 
59120 8 

60000 rem fehlerkanal lesen 

60010 input#15,en,em$,et,»a b if Bn“0 then return 
60020 print#pr,chr$<13)chr$(13) 

60030 print#pr , "-f ehler auf diskette !" 

60040 print#pr,"fehlernachricht s "5 em^ 

60050 pri nt#pr , "f ehl ernummer a "jien 

60060 print#pr,"spur b " 5 et 

60070 print#pr,"sector s "jes 

60080 print#pr,"Programm abgebrochen !" 

60090 dose pr 
60100 dose in 
60110 dose ou 
60120 dose 15 
60130 end 

61000 open8,B,0,"miniatur-syn,s,r" 

61010 open4,4 

61020 get# 8 ,i:J: a if st«64 then 61100 
61025 if i.$=»"" then i«0 b goto 61040 
61030 iKasc(i$) 
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EINE KLEINE EINFÜHRUNG IN DIE ASSEMBLERSPRACHE 


Diese Einführung ist für diejenigen gedacht, die noch nicht 
in Assembler- oder Maschinensprache programmiert haben. 
Dieses Kapitel soll Sie in die Lage versetzen zu verstehen, 
was die einzelnen Assemblerbefehle bei der Codegenerierung 
für eine Bedeutung haben. 

Es soll in diesem Kapitel nicht mit schon bewährten Büchern 
über Maschinensprache konkurriert werden und es werden darum 
nur die Befehle besprochen, die wir auch benutzen werden. 
Der Assembler, der weiter unten abgedruckt ist, beherrscht 
selbstverständlich alle Befehle und Adressierungsarten des 
6502 bzw. 6510. 

Haben Sie erst einmal das Prinzip der Assemblerprogram¬ 
mierung anhand einiger Befehle kennengelernt, so wird es 
Ihnen bestimmt nicht schwer fallen, diese Kenntnisse weiter 
auszubauen. Zu unserem Vorteil ist der Mikroprozessor 
unseres Rechners nicht sehr kompliziert aufgebaut und eignet 
sich daher gut zum Lernen. Dies soll nicht heißen, daß der 
Mikroprozessor nicht leistungsfähig wäre, aber das werden 
Sie schon gemerkt haben. 

Wir wollen zwischen den Mikroprozessoren 6502 und 6510 
keinen Unterschied machen, für unsere Belange reagieren 
beide Prozessoren auf die entsprechenden Befehle gleich. 

Die Ebene der Maschinensprache wird nur mit der folgenden 
Bemerkung gestreift, daß nämlich der Assembler in der Lage 
ist. Assemblerbefehle in Maschinensprache umzusetzen und wir 
daher nichts über die Maschinensprache wissen müssen. Wir 
wollen uns daher mit der weitaus handlicheren 
Assemblersprache "begnügen", besonders weil uns die 
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Beschäftigung mit der Maschinensprache auch prinzipiell 
keine weiteren Möglichkeiten eröffnen würde. 


Unseren Computer stellen wir für dieses Kapitel einmal 
vereinfacht so dar: 

Er besteht aus einem Speicher mit einzelnen Speicherzellen 
und aus einer Maschine '(Mikroprozessor), die den Inhalt der 
einzelnen Speicherstellen verändern kann. Die einzelnen 
Speicherzellen sind in unserem Fall von 0 bis 65535 
durchnumeriert. In der Programmierung von Assembler¬ 
programmen ist es üblich, die Zahlen nicht nur in der 
dezimalen, sondern auch in der hexadezimalen Form 
aufzuschreiben. 

Der Übergang vom Zehner- zum Sechzehnersystem hat Vorteile, 
da der Aufbau von Computern den Gebrauch des 
Sechzehnersystems nahelegt. Für den Anfänger ist es jedoch 
gewöhnungsbedürftig und gerade in diesem Punkt soll sich 
ganz besonders den Anfängern gewidmet werden. Im folgenden 
wird deshalb auch die dezimale Schreibweise benutzt. 

Hexadezimalzahlen werden durch das Voranstellen eines 
$-Zeichens gekennzeichnet. Der Speicherbereich unseres 
Speichers reicht also von $0000 bis $FFFF. In dem Programm 
Disassembler befindet sich eine Routine, mit der Sie Zahlen 
aus einem System in das andere umwandeln können. 

Im Speicher selbst sind nun Programme, die der 
Mikroprozessor ausführen soll, um Daten zu transportieren 
und zu verändern, die sich in anderen Stellen des Speichers 
befinden. 

Wir können uns in diesem Kapitel fast ganz auf Befehle 
konzentrieren die Daten transportieren, da wir die 
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Programme, die der CBM-64 von Hause aus hat, so weit als 
möglich benutzen wollen. Weil die Daten dann mit Hilfe 
dieser Programme verändert werden, wird es unsere Aufgabe 
sein, die nötige Information an die Speicherstellen zu 
transportieren, mit denen diese Programme dann arbeiten. 

Um nun zu begreifen, was der Mikroprozessor macht, schauen 
wir uns ein Modell von ihm an. 

Der Mikroprozessor enthält einige Register, mit denen wir 
arbeiten können. Wir wollen uns auf folgende Register 
beschränken: 

- Akkumulator 

- X-Register 

- Y-Register 

- Statusregister 

Der Akkumulator ist das Arbeitsregister unseres Prozessors, 
in dem die meisten Operationen ablaufen. 

Das X- und das Y-Register sind Hilfsregister, die oft als 
Zähler verwendet werden. 

Im Statusregister können wir Informationen über den Zustand 
des Prozessors erhalten. 

Betrachten wir einmal ein Beispiel: 

Der Inhalt der Speicherstelle 2055 soll zur Speicherzelle 
7256 transportiert werden. 

Dazu müssen wir folgendes ausführen: Den Inhalt der 
Speicherstelle 2055 in den Akkumulator laden und den Inhalt 
des Akkumulators in die Speicherstelle 7256 übertragen. 
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Die dazugehörigen Assembleranweisungen: 


LDA 2055 
STA 7256 

Das Befehlskürzel 'LDA' bedeutet 'Lade den Akkumulator mit'. 
'STA' bedeutet 'Speichere den Akkumulator nach'. Die Kürzel 
heißen auch 'Mnemonics'. 

Hinter einem Mnemonic steht ein sogenannter Operand. Aus dem 
Operanden kann der Mikroprozessor die Information erkennen, 
auf welche Speicherstelle sich der Befehl bezieht. Operanden 
können Dezimalzahlen, Hexadezimalzahlen und Symbole sein. 
Bei unserem Assembler müssen Symbole mit einem Buchstaben 
beginnen, dürfen aber alle Zeichen enthalten und können 
beliebig lang sein. Ein Symbol bekommt innerhalb eines 
Assemblerprogramms einen Zahlenwert zugewiesen, der dann bei 
der Umwandlung des Programms in ein Maschinenprogramm 
anstelle des Symbols eingesetzt wird. Um einem Symbol einen 
Wert zuzuweisen, müssen wir dem Assembler eine Anweisung 
geben. Die Anweisungen, die den Assembler steuern, nennt man 
auch Pseudoanweisungen. Lesen Sie dazu bitte das Kapitel 
'Der Befehlssatz des Assemblers'. 

Es gibt verschiedene Möglichkeiten, wie der Mikroprozessor 
die Adresse der Speicherstelle findet, mit der er bei dem 
aktuellen Befehl arbeiten soll. 

Wir wollen jetzt die verschiedenen 'Adressierungsarten' 
anhand des 'LDA'-Befehls kennenlernen. 

Bemerkung: 

Die verschiedenen Möglichkeiten der Adressierung sind von 
Befehl zu Befehl anders. Für den LDA-Befehl existieren 
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jedoch die meisten Adressierungsarten. 


Direkte Adressierung: 

Bei der direkten Adressierung bedeutet der Operand zum 
Befehl keine Adresse, sondern einen Wert. 

Beispiel: 

LDA # 77 

Diese Anweisung lautet: Lade den Akkumulator direkt mit der 
Zahl 77. Damit der Assembler die Adressierung von jener 
unterscheiden kann, die wir schon weiter oben kennengelernt 
haben, schreiben wir vor den Operanden ein Doppelkreuz. 


Seite Null Adressierung: 


Was ist die Seite Null? 

Wir können uns den Speicher vorstellen als 256 Seiten 
(numeriert von 0 bis 255) und jede Seite bestehend aus 256 
Speicherzellen (ebenfalls numeriert von 0 bis 255). Die 
erste Seite des Speichers ist die Seite Null (engl. Zero 
Page). Für diese Seite gibt es eine Anzahl von Befehlen der 
vorgenannten speziellen Adressierungsart, da die 
entsprechenden Maschinenbefehle kürzer sein können und auch 
schneller vom Mikroprozessor ausgeführt werden. In der Seite 
Null legt man darum meist Variablen ab, die im Verlauf eines 
Programms sehr oft gebraucht werden. Die Seite Null sollte 
man darum in seinen Programmen besonders im Auge haben und 
entsprechend verplanen. 
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Um eine Seite Null-Adressierung zu ermöglichen, darf der 
Operand nur Werte zwischen 0 und 255 annehmen. 

Beispiel: 

LDA 77 


Der Wert, der in der Speicherzelle 77 gespeichert ist, wird 
in den Akkumulator geladen. 


Seite Null mit Index X: 

Beispiel 

LDX # 1 
LDA 77, X 

Diese beiden Anweisungen bewirken folgendes: 

1) Das X-Register wird direkt mit dem Wert 1 geladen. 

2) Der Akkumulator wird mit dem Inhalt der Speicherstelle 
(77 + X also: 78) geladen. Der Inhalt des X-Registers 
wird zu der Adresse addiert und so ergibt sich die 
Adresse für den LDA-Befehl. 

Die Möglichkeit, mit Hilfe der Index-Register zu 
adressieren, gibt uns die Freiheit, erst zur Ausführung des 
Maschinenprogramms zu entscheiden, aus welcher Speicherzelle 
gelesen werden soll. Diese Möglichkeiten bieten unschätzbare 
Vorteile, deshalb ist unser Mikroprozessor mit vielfältigen 
Arten der Index-Adressierung ausgestattet. 
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Seite Null mit Index Y: 


Diese Adressierung ist nur bei zwei Befehlen möglich: 

LDX und STX 

also: 


LDX Operand, Y 
STX Operand, Y 

STX ist das Gegenstück zu LDX: 

Während LDX bedeutet, daß das X-Register mit einem Wert 
geladen wird, heißt STX, daß der Inhalt des X~Registers in 
einer Speicherstelle abgelegt werden soll. 

Die Errechnung einer Adresse ergibt sich wie bisher bei der 
Indizierung mit dem X-Register, nur daß bei diesen Befehlen 
der Inhalt des Y-Registers herangezogen wird. 

Absolute Adressierung; 


Bei der absoluten Adressierung darf der Operand Werte 
zwischen 0 und 65535 annehmen, wir können so jede 
Speicherzelle ansprechen. 

Beispiel: 

LDA 47000 

Der Akkumulator wird mit dem Inhalt der Speicherzelle 47000 
geladen. 
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Absolute Adressierung mit Index X: 

Wie Seite Null mit Index X, nur darf der Operand im Bereich 
von 0 bis 65535 liegen. 

Absolute Adressierung mit Index Y: 

Wie Seite Null mit Index Y, nur darf der Operand im Bereich 
von 0 bis 65535 liegen. 

Diese Adressierungsart gibt es jedoch für eine Reihe 
weiterer Befehle. 


Absolute indirekte Adressierung: 


Diese Adressierungsart gibt es zwar nur für einen Befehl, 
den Befehl JMP, aber er ist Grundlage für weitere 
Möglichkeiten der Adressbildung. Manchmal benötigt man die 
Möglichkeit, eine Adresse zu verarbeiten, die richtig 
ausgerechnet werden kann. Diese ausgerechnete Adresse wird 
dann in zwei Speicherstellen abgelegt und man teilt dem 
Befehl, der auf diese Adresse Bezug nehmen soll, die Adresse 
der ersten der beiden Speicherstellen mit. Der Prozessor 
holt sich also erst die aktuelle Adresse aus dem Speicher. 
Warum benötigen wir aber zwei Speicherstellen? In einer 
Speicherstelle können wir nur die Werte von 0 bis 255 
angeben. Damit ist es uns möglich, eine bestimmte 
Speicherzelle innerhalb einer Seite zu benennen, aber wir 
brauchen dann noch die Information, auf welcher Seite wir 
suchen müssen. Wie errechnen wir nun die Werte, die in den 
beiden Speicherzellen abzulegen sind? Haben wir die Zahl als 
Hexadezimalzahl vorliegen, so ist das ganz einfach; Die 
letzten beiden Zeichen geben die Stelle innerhalb der Seite 
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und die ersten beiden die Seite an. 


Beispiel: 

Ab der Speicherstelle $AAD2 soll die Adresse stehen, die 
benötigt wird. Diese Adresse soll $FFD2 sein. Dann steht in 
$AAD2 der Wert $D2 und in $AAD3 der Wert $FF. 

Bei der Asserablerprogrammierung werden Adressen immer in 
dieser Form gespeichert. 

Bleibt noch der Befehl JMP zu erklären. 

Der Mikroprozessor holt seine Befehle aus dem Speicher und 
wenn er auf JMP trifft, so liest er den nächsten Befehl ab 
der Speicherstelle, deren Adresse er nach dem JMP findet 
bzw. errechnet. 

Beispiel: 

JMP $FFD2 
JMP ($FFD2) 

Das erste Beispiel benutzt die absolute Adressierung. Der 
nächste Befehl ist der in Speicherzelle $FFD2. 

Das zweite Beispiel bedient sich der indirekten 
Adressierung. Der nächste Befehl steht an der Adresse, die 
in den Speicherzellen $FFD2 und $FFD3 abgelegt ist. 

Indizierte indirekte Adressierung; 

Diese Art der Adressierung ist nur mit Hilfe des X-Registers 
möglich. 

Beispiel: 
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LDX # 10 
LDA (20,X) 


Die Adresse der Speicherzelle, mit der der Akkumulator 
geladen wird, ergibt sich jetzt wie folgt: 

Zum Wert des Operanden, in unserem Fall die 20, wird der 
Wert des X-Registers addiert: 

20 + 10 = 30. 

Nun geht der Mikroprozessor davon aus, daß sich in den 
Speicherzellen 30 und 31 eine Adresse befindet. 

Z.B. Inhalt der Speicherzelle 30 ist 10 und der 
Inhalt der Speicherzelle 31 ist 1. 

Dann ergibt sich die Adresse zu 10 + 1 * 256 = 266. 

Der Akkumulator wird dann mit dem Inhalt der Speicherzelle 
266 geladen. 

Der Operand darf die Werte von 0 bis 255 annehmen. 


Indirekte indizierte Adressierung: 


Ähnlich raffiniert geht es auch bei dieser Adressierungsart 
zu: 

Das Index-Register ist diesmal das Y-Register. 

Beispiel: 
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LDY # 10 
LDA (20),Y 

Hier erwartet jetzt der Mikroprozessor in den Speicherzellen 
20 und 21 eine Adresse. 

z.B. Inhalt von 20 ist 10 und Inhalt von 21 ist 1. 

So zeigt diese Adresse auf die Speicherzelle 10 + 1 * 256 = 
266. 

Nun wird zu dieser Adresse der Inhalt des Y-Registers 
addiert, in unserem Fall 10. Also 266 + 10 = 276. Jetzt wird 
der Akkumulator mit dem Inhalt der Speicherzelle 276 
geladen. Übrigens darf der Operand, in unserem Fall die 20, 
nur die Werte von 0 bis 255 annehmen. Es muß unbedingt eine 
Seite Null-Adresse sein. 


Relative Adressierung: 

Diese Adressierungsart existiert für eine besondere Gruppe 
von Anweisungen, nämlich den Anweisungen für bedingte 
Sprünge. Was ist ein bedingter Sprung? 

Ein bedingter Sprung ist ein Sprung, der in Abhängigkeit vom 
Inhalt des Statusregisters ausgeführt wird. Es können so 
innerhalb eines Programms Entscheidungen getroffen werden, 
welche Anweisungsfolgen abgearbeitet werden sollen. 

Diese Entscheidungen werden mit Hilfe des Statusregisters 
getroffen. Das Statusregister umfaßt 8 Stellen, die einzeln 
abgefragt werden können. Wir wollen dies im folgenden 
betrachten: 

Ein Bit kann die Information 0 oder 1 enthalten. Es gibt nun 
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eine Reihe von Sprungbefehlen, von denen wir uns 2 

herausnehmen wollen: 

BEQ und BNE 

Beispiel: 

BEQ Operand 
BNE Operand 

Beispiel 1: Es wird, wenn Z die Information 1 enthält, 
relativ zur Angabe des Operanden gesprungen. Ist Z gleich 0, 
so werden die unmittelbar folgenden Befehle ausgeführt. Es 
kann um 128 Speicherstellen zurück und um 127 
Speicherstellen vorwärts gesprungen werden, von der 
Speicherstelle ausgehend, in der der Sprungbefehl steht. 
Darum auch der Terminus 'relative' Adressierung. Es wird 
relativ zum Sprungbefehl gesprungen. 

Nun besteht in Assemblerprogrammen die Möglichkeit, 
sogenannte Marken (engl. Label) zu setzen, um Adressen von 
Speicherstellen besonders zu kennzeichnen. Ist der Operand 
nun so eine symbolische Adresse, so wird dorthin verzweigt. 

Beispiel 2: Es wird, wenn Z = 0 ist, gesprungen, sonst wie 
Beispiel 1. 

Bleibt die Frage: Wie gelangen die Informationen ins 
Statusregister? 

Viele Befehle beeinflussen einzelne Stellen im 
Statusregister, dann gibt es Befehle, mit denen man die 
Stellen direkt beeinflussen kann und zu guter Letzt gibt es 
Befehle, die Stellen im Statusregister aufgrund des Inhalts 
von Speicherstellen setzen oder löschen können. Wir werden 
das aber gleich noch ein wenig beleuchten. 
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Nun zur letzten Adressierungsart, die wir uns ansehen 
wollen: 


Implizierte Adressierung: 

Bei dieser Art sind die Adressen schon aus dem Befehl selbst 
ersichtlich. Einige dieser Befehle möchte ich jetzt in 
alphabetischer Ordnung erklären: 


DEX i 

; Decrement X-Reg by one 

; Vermindere das X-Register um eins 

DEY 1 

; Decrement Y-Reg by one 

; Vermindere das Y-Register um eins 

INX ; 

; Increment X-Reg by one 

; Vergrößere das X-Register um eins 

INY ; 

; Increment Y-Reg by one 

; Vergrößere das Y-Register um eins 

NOP ; 

; No Operation 

; Keine Operation, Leerbefehl 

RTS i 

; Return from subroutine 

; Ende eines Unterprogramms 

TAX 1 

; Transfer Accumulator to X-Reg 

; Übertrage den Akkumulator zum X-Register 

TAY ; 

; Transfer Accumulator to Y-Reg 

1 Übertrage den Akkumulator zum Y-Register 
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TYA ; Transfer Y-Reg to Accumulator 

; Übertrage das Y-Register zum Akkumulator 

TXA ; TransferX-Reg to Accumulator 

; Übertrage das X-Register zum Akkumulator 

Ist bei einem dieser Befehle das Ergebnis eine Null oder 
wird eine Null bewegt, so wird das Zero-Bit auf eins 
gesetzt, bzw. ist keine Null im Spiel, so wird es auf null 
gesetzt. 

Im folgenden möchte ich Ihnen noch eine Reihe weiterer 
Befehle stichwortartig erklären, für die es jeweils 
verschiedene Adressierungsarten gibt. Einige können Sie aus 
dem Kapitel über die Codegenerierung entnehmen, für weitere 
möchte ich auf die Literatur-liste verweisen. 

CMP Operand 

; Compare Accumulator and Memory 
; Vergleiche Akkumulator und Speicherstelle 

CPX Operand 

; Compare X-Reg and Memory 

; Vergleiche X-Register und Speicherstelle 
CPY Operand 

; Compare Y-Reg and Memory 

; Vergleiche Y-Register und Speicherstelle 

JMP Operand 

; Jump to new location 

; Springe zu einer neuen Befehlsadresse 

JSR Operand 

; Jump subroutine 
; Führe ein Unterprogramm aus 
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LDA Operand 

; Load Accumulator 
; Lade den Akkumulator 

LDX Operand 
; Load X-Reg 
; Lade das X-Register 

LDY Operand 
; Load Y-Reg 
; Lade das Y-Register 

STA Operand 

; Store Accumulator 
; Speichere Akkumulator 

STX Operand 

; Store X-Reg 
; Speichere X-Register 

STY Operand 

; Store Y-Reg 
; Speichere Y-Register 


Dies soll uns fürs erste genügen. Hoffentlich wurde Ihnen 
ein wenig 'der Mund wässerig' gemacht. Der 6502 beherrscht 
noch eine ganze Reihe anderer Befehle, aber eine umfassende 
Erklärung dieses Mikroprozessors würde mit Leichtigkeit ein 
Buch vom Umfang dieses Buches füllen. 

Dieses Kapitel sollte auch nur die Programmierung im 
Assembler anreißen, um Ihnen eine Vorstellung davon zu 
geben, was geschieht, wenn der Rechner die Befehle ausführt, 
die wir ihm bei der Codegenerierung eingeben. 
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Es gibt eine ganze Reihe von guten Büchern über diesen 
Prozessor und , falls Sie sich entschließen, in die 
Programmierung in Assembler tiefer einzusteigen, so wird 
Ihnen bei der Lektüre der entsprechenden Bücher schon 
einiges bekannt Vorkommen. 

Im folgenden möchte ich Ihnen den Befehlssatz des 
beigefügten Assemblers erklären und ein Listing des 
Assemblers selbst geben. Danach werden die verschiedenen 
Befehle des Disassemblers erläutert und ebenfalls ein 
Listing des Disassemblers angefügt. 
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DER ASSEMBLER 


Den Assembler benötigt man, wenn man Assemblerprogramme in 
Maschinenprogramme übersetzen will. Bekannt machen möchte 
ich Sie mit den Besonderheiten dieses Assemblers. 

Woraus besteht nun ein Assemblerprogramm ? 

1) Aus den Anweisungen, die vom Assembler in 
Maschinensprache übersetzt werden. 

2) Aus Anweisungen, die den Assembler mit Informationen über 
das Programm versorgen und so die Assemblierung steuern. 
Diese Anweisungen nennt man auch die Pseudoanweisungen, weil 
sie im Maschinenprogramm nicht mehr sichtbar sind. Der 
Disassembler kann diese Anweisungen nicht mehr 
zurückübersetzen. Bei den Anweisungen aus 1) ist dies 
möglich, obgleich die Programme auf das Nötigste abgemagert 
sind und nicht mehr alle Informationen des 
Assemblerprogramms enthalten. Aber eins nach dem anderen. 

Einige Bemerkungen zur Notation von Assemblerprogrammen 
möchte ich noch voranstellen.: 

Assemblerprogramme können wie BASIC - Programme geschrieben 
und abgespeichert werden. Sie können sich also alle 
Assemblerprogramme, die der MINIATUR - Übersetzer schreibt, 
ansehen und analysieren. Dies ist für Sie ein wichtiges 
Hilfsmittel. 

Kommentare werden in Assemblerprogrammen durch ein Semikolon 
begonnen. Ein Semikolon weist den Assembler an, den Rest der 
Zeile zu überlesen. Kommentare können an jeder Stelle in 
einer Zeile beginnen. 
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Beispiel : 


10 ; Dies ist ein Kommentar,der 

20 ; sich bis zum Ende der 

30 ; jeweiligen Zeile erstreckt. 

40 LDA 12 ; Lade Akku mit Inhalt 

50 ; der Speicherstelle 12 

Leerzeichen wirken wie Trennzeichen. Sie trennen die 
kleinsten Bausteine des Assemblerprogramms voneinander. 

Eine Anweisung schließt mit dem Ende einer Zeile. 

Pro Zeile ist nur eine Assembleranweisung möglich. 

Operanden : 

Operanden können Dezimalzahlen, Hexadezimalzahlen und 
Symbole (Namen) von beliebiger Länge, die mit einem 
Buchstaben beginnen, sein. 

Beispiele : 

Dezimalzahlen : 15 

1000 

Hexadezimalzahlen : $FFFF 

$0D 

$1234 

Symbole : OTTO 

SPRUNGZIEL1 
TEXT-AUSGABE 

Zu Punkt 1) Befehle, die in Maschinensprache übersetzt 

werden. 
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Die mnemonische Abkürzung der Befehlsworte entspricht dem 
MOS Standard. Die Notation der verschiedenen 
Adressierungsarten ergibt sich wie foglt: 

Die Schiebe- und Rotationsbefehle, die den Akkumulator 
betreffen : 

ASL ACCU 
LSR ACCU 
ROL ACCU 
ROR ACCU 

Befehle mit impliziter Adressierung, wie z.B. BRK, werden 
wie üblich aufgeschrieben. 


Direkte Adressierung : 


Befehlsaufbau : Als erstes kommt das mnemonische Kürzel, 

dann ein Leerzeichen und das Doppelkreuz ( ), wahlweise 

Leerzeichen, und der Operand. 

Beispiele für direkte Adressierung : 

LDA # OTTO 
AND #OTTO 
ADC # 13 
ADC #13 
CMP # $12FF 


Seite Null und Absolute Adressierung ohne Index : 

Befehlsaufbau : Das mnemonische Kürzel, mindestens ein 
Leerzeichen, Operand. 
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Je nach Grösse des Operanden wird entweder eine Seite Null 
oder eine Absolute Adressierung gewählt. Ist der Operand ein 
Symbol, das im Assemblerprogramm erst später vereinbart ist, 
wird in jedem Fall eine Absolute Adressierung gewählt. Dies 
kommt daher, daß der Assembler den Quelltext, das 
Assemblerprogramm, nur einmal liest, um Zeit zu sparen. 

Beispiele : 

ORA OTTO 
STA 234 
LDA $FE 
STX 12345 


Seite Null und Absolute Adressierung mit Index : 

Befehlsaufbau Mnemonisches Kürzel, Leerzeichen, Operand, 

Komma, ein 'X' für Index-Register-x oder ein 'Y' für 
Index-Register-y. 

Beispiele : 

STX OTTO,Y 
STY OTTO,X 
STA $44,X 
LDA 123,X 


Indizierte indirekte Adressierung : 

Befehlsaufbau : Das mnemonische Kürzel, beliebig viele 
Leerzeichen ( mindestens jedoch eins! ), runde Klammer auf, 
beliebig viele Leerzeichen, Operand, beliebig viele 
Leerzeichen, Komma, beliebig viele Leerzeichen, ein 'X', 
runde Klammer zu. 

Beispiele : 
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LDA ( OTTO ,X) 
STA ( $AA, X ) 


Indirekte indizierte Adressierung : 

Befehlsaufbau : Das mnemonische Kürzel, mindestens ein 
Leerzeichen, runde Klammer auf, beliebig viele Leerzeichen, 
Operand, beliebig viele Leerzeichen, runde Klammer zu, 
beliebig viele Leerzeichen, Komma, beliebig viele 
Leerzeichen, das Zeichen 'Y'. 

Beispiele : 

LDA ( OTTO ),Y 
STA ( 123 ) , Y 


Indirekte absolute Adressierung : 

Diese Art gibt es nur bei dem Befehl JMP. 

Beispiel : 

JMP ( 12345 ) 

Relative Adressierung : 

Diese Art der Adressierung existiert für die relativen 
Sprünge. 

Befehlsaufbau : Das mnemonische Kürzel, mindestens ein 
Leerzeichen, Operand. 

Der Operand muß in diesem Fall eine vereinbarte Sprungmarke 
sein. Wie dies gemacht wird, erfahren Sie noch. 

Beispiel : 

BCC MARKE-1 
BPL AUSGABE 
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Zu Punkt 2) Die Pseudoanweisungen : 


Die Pseudoanweisungen steuern den Assembler und wirken so 
nur indirekt auf das entstehende Maschinenprogramm ein. Sie 
werden durch einen voranstehenden Punkt gekennzeichnet. Für 
die meisten Pseudoanweisungen gibt es auch Abkürzungen, um 
ein Assemblerprogramm so kurz wie möglich schreiben zu 
können. 

Schauen Sie sich ruhig einmal die Assemblerprogramme an, die 
der MINIATUR - Übersetzer schreibt. Viele Fragen werden sich 
dann ganz von alleine klären, und Sie besitzen so eine 
Beispielsammlung, die Sie selbst jederzeit erweitern können. 
Wenn Sie dann etwas Übung haben, können Sie sich ja bei 
ausgewählten Programmen daran setzen, die Assemblerprogramme 
zu optimieren, denn ein solch kleiner Übersetzer, wie es der 
MINIATUR - Übersetzer ist, kann keinen optimalen Code 
erzeugen. 


Die Anweisung : 


.START 


.START bestimmt, für welchen Adressbereich Ihr 
Assemblerprogramm erzeugt wird. Der nachfolgende Operand 
bestimmt die Startadresse. 


Beispiel : 


.START 2047 


Die Anweisung : .END 


.END teilt dem Assembler mit, daß das Assemblerprogramm hier 
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zu Ende ist. 

Ein Beispiel kann ich mir hier wohl sparen. 


Die Anweisung : .MARKE oder .M 


Mit dieser Anweisung können Sie Symbole als Sprungmarken 
definieren. 

Dem Symbol wird die Adresse der Speicherstelle zugeordnet, 
für die der nächste Maschinenbefehl erzeugt wird. Falls Sie 
es einmal möchten, so können Sie dieses Symbol auch 
benutzen, um z.B. den Akkumulator mit dem Inhalt dieser 
Speicherstelle zu versorgen. 

Beispiel : 

Marke-1 .MARKE 
Marke-1 .M 

Die Anweisung : •EQU oder .E 


Diese Anweisung gestattet es, Symbole mit einem Wert zu 
verknüpfen. Bei der Assemblierung wird dann anstelle des 
Symbols dessen Wert eingesetzt. Mit .EQU können Sie dem 
Symbol nur einmal einen Wert zuweisen. 


Beispiel : 


CHARLOTTE 

HANS 

ENNO 

ENNO 


.EQU $FEFE 
.EQU 123 
.EQU MONIKA 
.E MONIKA 


Die Anweisung 


.VAREQU oder .V 
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Um den Wert eines Symbols zu verändern, benutzen Sie diese 
Anweisung. 

Beispiel : 

ENNO .VAREQU CHARLOTTE 

ENNO .V SUSANNE 


Die Anweisung : .BLOCK oder .BL 

Damit Sie in einem Assemblerprogramm Platz für Daten 
reservieren können, benötigen Sie diese Anweisung. Der 
Operand hinter der Anweisung gibt die Anzahl der zu 
reservierenden Speicherplätze an. Die Speicherplätze werden 
ab der betreffenden Stelle reserviert. 

Beispiel : 

.BLOCK 555 
.BL HANS 


Die Anweisung : 


.TEXT oder .T 


Wollen Sie Zeichenketten abspeichern, so nehmen Sie diesen 
Befehl. Die Zeichenkette wird ab der Stelle gespeichert, an 
der die Anweisung steht. Die Zeichenkette versehen Sie bitte 
vorne und hinten mit Anführungszeichen. Das erste 
Anführungszeichen wird nicht mitgespeichert, wohl aber das 
letzte. Angefügt wird außerdem ein Zeichen mit Inhalt Null. 
Dieser Befehl wird in den meisten Fällen dazu benutzt 
werden, die betreffende Zeichenkette später auszugeben. Wir 
brauchen nur noch die Adresse, an der der Text steht, an die 


250 


ROM-Routine zu übergeben und in die Routine zu springen, 
dann wird der Text ausgegeben. Siehe dazu das Beispiel zum 
Befehl .COUNT. 


Beispiel : 


.TEXT "Hallo hier bin ich!" 
.T "Das ist aber fein!" 


Die Anweisung : 


.BYTE oder .B 


Dieser Befehl legt den Wert des Operanden in der nächsten 
Speicherstelle ab und reserviert diese. Der Wert des 
Operanden muß dementsprechend zwischen 0 und 255 liegen. 

Beispiel : 

.BYTE 66 
.B CARLA 

Die Anweisung : .DBYTE oder .DB 


Der Wert des Operanden, der eine 16-Bit Information 
darstellt, wird in zwei 8-Bit Informationen umgef.ormt. Dann 
wird die höherwertige Teilinformation und danach die 
niederwertige Teilinformation in die nächsten zwei 
Speicherstellen abgelegt. Auch diese Speicherstellen werden 
reserviert. 

Beispiel : 

.DBYTE 256 
.DB 254 

Das erste Beispiel bewirkt, daß nacheinander die Werte 1 und 
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255 abgelegt werden. 

Letzteres Beispiel bewirkt, daß nacheinander die Werte 0 und 
254 abgelegt werden. 


Die Anweisung : 


.WORD oder .W 


Diese Anweisung entspricht der Anweisung .DBYTE, nur daß 
hier zuerst das niederwertige Byte und dann das höherwertige 
Byte abgespeichert wird. 


Die Anweisung : 


.COUNT oder .C 


Trifft der Assembler auf diesen Befehl, so geschieht 
folgendes : Wenn der Assembler gestartet wird, schreibt er 
in seine Symboltabelle die Symbole CL und CH. Diese Symbole 
bekommen nun einen Wert zugeordnet. Die Adresse, an der die 
nächste Information abgelegt wird, wird in zwei 8-Bit Daten 
zerlegt. CL wird der niederwertige, CH der höherwertige Teil 
zugeordnet. Taucht nun CH oder CL in den nächsten 
Anweisungen auf, so werden diese Werte eingesetzt. .COUNT 
aktualisiert diese Werte. 

Beispiel : 

Ausgabe des Satzes "ENNO ist ein roter Cocker!". 


JMP TEXT-1 ; Überspringen des 
; Satzes. 


.COUNT 

.TEXT "ENNO ist ein roter Cocker!" 


TEXT-1 .MARKE 


Sprungziel für den 


LDY # CL 


Sprung. 

Laden der Zeiger für 
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LDA # CH 


JSR $BA1E 
LDA # 13 

JSR $FFD2 


den Sprung in die 
ROM-Routine. 

Sprung ins ROM. 
Zeilenvorschub-Zeichen 
laden. 

Sprung in die 

Ausgaberoutine 
des Betriebsystems. 


Ich hoffe, Sie haben ein wenig Spaß bekommen, in Assembler 
zu programmieren! 
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Das Assemblerlisting 


45000 openl5,8,15 b print#15,"i" 8 print chr$(14) 

45010 print" Bitte Datendi©kette 

45020 print" **** einlegen ! ***#" 

45030 print" ***# Weiter mit < RETURN > ####" 

45040 get i-Ff $<>chr$ < 13) then 45040 

45050 print#15,"i" 

45070 input#15,en,em*,et,effi 
45100 if enOO then goto 45010 
45110 closelS 
47000 goto 49999 
48000 rem 

48010 print" **** Weiter mit < RETURN > i **** " 

48020 get w^b i f w$<>chr'4s (13) then 48020 
48030 sys 2076 

49999 printchr$<14) 

50000 rem************* assemble 

50001 8 open 15,8,15 8 print#15,"i" 

50002 dim -F* < 150) , 1 (500) , 1 <500) ,n$ <200) ,n <200) 

,s|:<400) ,b<400) 

50003 1=2 8 f=0 8 pc=2129 8 pm=pc 8 n=0 8 b«0 s l<^<0)«"ch" 

8 1 '$ < 1) = "cl " 8 po“0 

50004 ti:*:«" 000000" 

50005 print" Name des Assemblerprogramms b" 

50006 input" "iina:> 

50007 for t“2 to len<na$) 8 if mi d* <naa(^, t, 1) <>" " then nent 

50008 a print"" 

50010 goBub 60000 

50011 open 8,8,8 ,"Ob"+ na$+",p,r" 8 gosub 50800 
8 if en <>0 then 48000 

50012 get#8,g$,h$ a if stOO then 48000 
50014 g=aBC<g$) 8 h“asc <h.>) 
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50016 ad«g+256*h s al"ad-2 i goto 50500 

50020 gosub 50400 

50030 i-f p“0 then goto 50500 

50050 if p“59 then print"kommentar";8 goto 50500 
50060 if p-32 then goto 50700 
50065 i-f p»34 then 50420 

50240 i-f p>127 and p<204 then goto 51000 
50250 i-f p<128 and p>32 then b$«b<:+chr$ (p) 

50260 goto 50020 

50400 g=hi p“gs al=al + l i get#B,h$i i-f st < >0thenprint 
Sprint".end vergessen?"s goto62300 
50405 if h$«"" then h«0 i goto 50415 
50410 h=asc (h<f) 

50415 return 
50420 b.*:=»b'4P-fchr$<p) 

50430 gosub 50400 s if pn34 then b$«b$-+-chr5|: <p) i goto 50020 
50440 if p«0 then 50030 
50450 goto 50420 

50499 8 

50500 rem**-«-*-»^-«-**-«-«-**-»«- anfang neue zeile 

50501 s 

50503 if b^O"" then gosub 51200 

50504 if t0-4f«"l" then f«f + l s f 4? (f) »zn4E+ 

" pseudoinstruction erwartet" b printf$(f) 

50505 t0:$«"n" 8 f$«"n" a ex»0 
50507 if al«ad then 50512 

50510 a3«al b for a2“a3 to ad-1 b gosub 50400 b ne«t a2 

50512 ad»g+256*h 

50515 gosub 50400 b gosub 50400 

50527 zn«g-f256*h a zn$="zeile a "-»-strtCzn) 

50530 print s prinfzeile B" 5 zn| 

50535 gosub 50400 

50540 goto 50020 

50541 B 

50700 blank gefunden 

50701 8 
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50710 if b.*:«"" then 50020 

50712 i-f left$<b:$, l)«chr^<34) then b$«b$+chr$ <p) 

B goto 50020 

50715 if b^«"#" or b$«"(" then 50020 

50717 if h»32 then 50020 

50718 if ©M«! then 50020 

50719 if t0<:<>"n" and h>169 and h<175 then gosub 50400 
9 e««l 8 goto 50070 

50720 goBub 51200 

50730 goto 50020 

50731 B 
50750 B 

50800 rem ■x-*****-«-#*##* fehlerkanal 

50810 inpLit#15,en ,em$,et,es s if en»0 then return 


50820 

print" 


fehler auf diskette 

■X-***" B ClOBB 0 

50830 

print" 


fehlernummer 

8 " 9 en 

50840 

prinf 


fehlernachricht 

8 “ 


3 print 

" •x-x-** 

" 9 em$ 


50850 

print" 


fehlerhafte spur 

8 " 9 et 

50860 

print” 


fehlerhafter sector 

8 " 9 es 

50870 

goto 62 
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51000 rem************* Interpreter code umwandeln 

51001 8 
51010 h*«"" 

51012 if p<140 then p9«41116 b p6=p-127 i goto 51020 

51014 if p<160 then p9«41160 s p6»p~139 s goto 51020 

51016 if p<i80 then p9«41244 b p6«p-159 8 goto 51020 

51018 p9»49483~8192 b p6»p-179 
51020 for tl«l to p6 

51030 p9»p9+l 3 if peek<p9)<128 then 51030 
51040 newt tl 

51050 p9“p9+l 8 if peek<p9)<128 then h*“h:>+chr$ <peek <p9> > 
8 goto 51050 

51060 h<:“h$+chr$<peek (p9)~128) 

51090 b‘$^b‘$+h'$ 

51095 goto 50020 
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51096 8 

51200 rem************* token gefunden / auswerten 

51201 8 

51203 printb<:+" " j 
51205 mn'4?«"n" 

51207 if t0$«"i" then gosub 55400 b goto 51290 
5120B if b-^<>". varequ“ and f*“"d" then go®ub 54580 
51210 if left:t(b<:, 1)«". •• then gosub 51400 8 goto 51290 
51220 if t0$»"p" then gosub 54000 8 goto 51290 

51222 if tO^^'V" then gosub 56500 b goto 51290 

51225 if t0$»"m" then gosub 54000 8 goto 51290 

51230 if len<b$)=3 and t0$«”n" then gosub 53000 

51240 if mn.^»"j‘' then goto 51290 
51270 if t0:$»"l" then f«f + l 8 f$<f)= 2 n$+ 

" pseudoinstruction erwartet" 8 printf^(f) 

51280 if t0$«"n" then la‘4f»b$ 8 t0*«"l" 

51290 b$=»"" 

51300 return 
51310 3 

51400 rem************* pseudo-operation gefunden 

51401 8 
51405 pB“0 

51410 if b$'=".end" then ps«! 

51420 if b.f«".equ" or b<:«".e" then ps«2 
51430 if b$«".Start" then pB«3 
51440 if b*^“".block" or b'4?“".bl" then ps»4 
51450 if b$“".byte" or b$“".b" then ps“5 
51460 if b^«".dbyte" or b<«".db" then pB“6 
51470 if b$«".teHt" or b$«".t" then pB»7 
51480 if b:^=»".word" or b#«".w" then ps“8 
51490 if b^“".varequ" or b.$=".v" then ps=»9 
51495 if b$»".marke" or b$«".m" then p®®10 
51497 if b$:“".count" or b$«".c" then ps«!! 

51500 onpBgosub51600,52000,52100,52200,52300,52400,52500 
,52600,52700,52800,52900 

51510 if ps«0 then print"**** keine pseudo ****" 
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J51515 if psOO then t0’4f»"p" 

51520 return 

51521 : 

51600 rem************* pseudo-operation .end 

51601 s dose 0 a gosub 50800 

51602 print a print" **** Programm- 


51603 

Laenge 

i-f po“0 

****" 

then print" 

**** 

"jpc-pm+2129-2047 

51604 

if po»l 

then print" 

**** 

"jpc-pm 

51605 

print" 

**** 

Bytes 

****" 

51606 

51610 

gosub 61000 

print" **** 

Ende 

****" 

51640 

print" 

**** 

Fehler 

****" 

51643 

print" 

**** Weiter 

mit < RETURN 

> ! ****" 

51645 

get vt‘$ 

8 if w*<>chr:t<13) then 51645 

51650 

51660 

for t“l to f 

print f-Xt) 




51670 for g«! to 1000 a next 

51680 next 

51681 print" **** Das Maschinenprogramm hat" 
aprint" **** den Namen i "+na$+"-ziel" 

51685 goto 62300 
51691 a 
51781 8 

52000 rem************* pseudo-operation .squ 

52001 a 
52010 pB$«"e" 

52020 return 

52021 B 

52100 rem************* pseudo-operation .Start 

52101 8 
52110 ps$«"B" 

52120 return 

52121 8 

52200 rem************* pseudo-operation .block 

52201 8 
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52210 ps:>»"k" 

52220 if la<:<>"'‘ then b$«la$ i goBub 54500 

52221 s 

52230 if f$»"d" then goaub 54500 
52240 return 

52300 rern************* pseudo-operation .byte 

52301 8 
52310 pB$«"b" 

52320 if la$<>"" then b»«la* 8 gosub 54500 

52321 8 

52330 if f:$»"d" then gosub 54500 
52340 return 

52400 rem************* pseudo-operation -dbyte 

52401 8 
52410 pB^«"d" 

52420 if laJK>"" then b*«la$ i gosub 54500 

52421 8 

52430 if f$»"d" then gosub 54500 
52440 return 

52500 rem************* pseudo-operation .tent 

52501 8 
52510 ps#“"t" 

52520 if la$<>"" then b<:=la$ i gosub 54500 

52521 8 

52530 if f$«"d" then gosub 54500 
52540 return 

52600 rem************* pseudo-operation .word 

52601 8 
52610 pB$«"w" 

52620 if la$:<>'*" then b*«la$ 8 gosub 54500 

52621 8 

52630 if f^«"d" then gosub 54500 
52640 return 
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52700 rern************* poeudo-operation .varequ 

52701 8 

52710 pb:>="v" : 

52720 return 

52721 I 

52800 rem******#**#**# pseudo-operation .marke 

52801 3 

52810 t0$“"i'' 8 b$“la^: 8 go®ub 54500 
52820 if f|P«''d" then gosub 54580 

52830 return 

52831 8 

52900 rem************* peeudo-operation .count 

52901 8 
52910 tO#»"!" 

52920 1(0)“int(pc/256) s 1(1>»pc-1(0)*256 
52930 return 

53000 rem************* mnemonic vermutet 

53001 8 
53005 w«0 
53010 t«62 
53020 goBub 53700 
53030 te$»left$(t$,3) 

53035 rem pri ntte<:, b:$: 

53040 if b$«tes>: then w“val (mid$ (t$,6,1) > 8 tB“t 8 goto 53570 

53050 if b-Xte-l: then t“asc <mid* <t-t,4,1) ) 8 goto 53210 

53060 t«aBc(mid$(t<:,5,l) ) 

53210 if t«91 then w«0 s goto 53570 
53220 goto 53020 

53570 if w“0 then mn:>“"n‘' s return 
53580 if W“1 then gosub 55500 8 return 

53590 if w“2 then gosub 55700 s return 

53600 gosub 56000 8 return 

53601 8 

53700 rem************* laden mit adresse t 

53701 3 

53705 on int(t/10)-2 goto 53710,53720,53730,53740,53750 
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return 


53710 

53720 

53730 

53740 

53750 

53760 

53770 

53771 

53801 

53802 

53803 

53804 

53805 

53806 

53807 

53808 

53809 

53810 

53811 

53812 

53813 

53814 

53815 

53816 

53817 

53818 


,53760,53770 

on t-34 goBub 53801,53802,53803,53804,53805 i 
on t-39 gosub 53806,53807,53808,53809,53810,53811 
,53812,53813,53814,53815 8 return 

on t-49 gosub 53816,53817,53818,53819,53820,53821 
,53822,53823,53824,53825 i return 

on t-59 gosub 53826,53827,53828,53829,53830,53831 
,53832,53833,53834,53835 i return 

on t-69 gosub 53836,53837,53838,53839,53840,53841 
,53842,53843,53844,53845 8 return 

on t-79 gosub 53846,53847,53848,53849,53850,53851 
,53852,53853,53854,53855 8 return 
gosub 53856 a return 

8 

t$«"ÄdcC C369C l C 1 1265#7k23275#8k3626d[: C C C237dt: C C C 
B379C C#59361C C C C4271C C C C52"8 return 
t" and#7.329 C C C C 1225C C j 23235$B j3622d C C j 4233d C C C C 
8339C Clf59321?l C C4231 C C C C52" 8 return 

t$»"asl CCSOaCCCCs 106C C C C3216C C C t:620eC C C C231e, 1*183" 

8 return 

t$»"bcc$'290y1wlp 2"8 return 
t.lf»"bcsC <2b0ul<§6p2"8return 
t^^'^beqC C2f Odlpl I 2" 8 return 
t" b i 18<-324*7-^2322c J 14f423 " s r eturn 
t$“"bmi CC:230i lol p 2" 8 return 
t.lP“"bne*,2dOBl 11 p 2" a return 
t5<i:a"bpl C C210gl01 p 2" 8 return 
t4s“"brk + . lOOCCCCOl" 8 return 
t$“"bvc C/250f121p 2":return 
tJf'bvsC C270hIq1p 2"8 return 
ts|F«"cl c) 81 lBe3e601" 8 return 
t‘4?«"cldC C ld8434501" a return 
t$«"cl113158838501"8return 
t:|p«"clvCClb8CCCC01" 8 return 

t<:«"cmp263c9[: L C C 12c547“132d54B7262cd637323dd467483d9 
C C C C93c 1616242d IC C C 1152" a return 
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53819 

53820 

53821 

53822 

53823 

53824 

53825 

53826 

53827 

53828 

53829 

53830 

53831 

53832 


53833 


53834 

53835 

53836 

53837 

53838 

53839 

53840 

53841 

53842 

53843 

53844 

53845 


t:^«"cpM C C3e0+1 < 112e4n7n232ecC C C C23" i r®turn 
t$="cpy573cOC C C C 12c4C C C C32cc C C C C23'‘ s return 
t$»"decC C3c6C C C C32d6C C C C62ceC C C C23doC C C C83"ir»turn 
t$«"de«4jlcd424401“flreturn 
t$»"deyCfl188CCCCOl"flreturn 

t:^»"eor C [:349C C C C 1245fl 7c23255fl Bc3624d C Cc4235d fl 6c58359 
C C C C934111C C4251C C C C52“fl return 

t$«"inc9<3e652<132f6C C Ll62eel C C C23feC C C C83"8 return 

t|:«"in«C-le8CCnl01'‘fl return 

t$»"inyCClc871410r'flreturn 

t|:«“ jmp0m34ccl fl 4236cklk4<3" s return 

t*«"j®r C C320C C C C23"fl return 

t*«"lda?a3a9C C C C12a5alVl32b5b3a362adb4a423bdC C C C83b9 
©3b593al C C C [:42b 1 C C C [152" fl return 

C C3a2Q7b212a6[: C C C32b631 C C72aeC C C C23beb 15193" 

flreturn 

t:f=»"l dy@d3a08<l ' 112a4C C C C32b4®8[: C62ac l C C C23bcH ia583" 

:return 

t*=" 1 sr C [:34a8 1 C C fl 146C C C [:3256c C C C624 bC C C C235eC C C C83" 

3 return 

t$«"nopceleasln401"flreturn 

t " or a C C 309 C C 7.11205e7y.23215e87.3620de 17.4231 d C C C C 8319 

C Ce59301-1C C4211C C C C52"* return 

t«:«"phabi 148s2>101"flreturn 

t$=a*'php C C 108e2e401 " fl return 

t$“"plagC168#2>201"8 return 

t$“"plphk128)1)201"fl return 

t$o"rol C C32a:>l C C i 126C C C C3236C C C C622eC C C C233e7.5ml83" 

B return 

t$«"rorjl36a#lC C fl166C C C C3276C C C C626e#4C C237ej5a583" 
fl return 

t*«"rtiCC140CCCCOl"6return 
t:<?“>"rtsf sl60. 1 /101" a return 

t<:«"®bc C C3e9C C C C 12e5C C C C32f 5n8| 262ed53ii 323f dn6|| 483-f 9 
C C C C93elC C C C42f1C C C C52"B return 
t:$«"BecnC 138$3$601" b return 


262 


53846 t$«"sedorH8n3n50r‘jreturn 

53847 t$»"Bei CC178#3#601‘'8return 

53848 t$»'’staqC385tlsl3295t2B2628dt3a3239d C C C C8399C C C C9381 
CCCC4291i:CCC52'‘ireturn 

53849 t.^=»"st>(pw38691 C C3296C C C C728eC C C C23" i return 

53850 t$=«"Bty C i:384r6C C3294r7C C628cC C C C23" 8 return 

53851 t$*"taxtvlaaQ204Or' 8 return 

53852 t$«"tayCyIa8a2«101"8 return 

53853 t'4f««"tyauC198r2z 101" 8 return 

53854 t$="tBX C nIbaC C C COl"8 return 

53855 t.>«"tHax 2 18ar lr301" s return 

53856 t$«''tHBC C 19ar5r401" 8 return 
53860 8 

54000 rem************* pseudo-operat i on Operand 

54010 goaub 55200 

54015 if pB^="f then b$»b$+chr^<0) 

54020 if ps.t«“s" then pc«b 8 pm“pc s po«! 

54030 if pB<:«"e'' then goto 54350 

54040 if ps$«"k" then pc“pc+b 8 for t"l to b a c0"0 
8 goBub 60100 8 next t 

54050 if pB$“"b" and b<256 then c0“b 8 goaub 60100 
8 pc“pc+l 

54060 if ps:^='‘b" and b>=>256 then gosub 55400 
54070 if ps*»"d" then goaub 57620 a c0»b2 a goaub 60100 
8 c0»bl 8 goaub 60100 a pc"pc+2 
54080 if pB.f“'‘w" then goaub 57620 8 gosub 57060 
54090 if ps:>»"t" then f ort=2tolen <b$)-1 a cO-aac <mid$ <b$,t, 1 > ) 
8goBub60100Bpc*pc+l 8 noxt t 
54100 if pB.$:»"v" then l(vq)«='b 
54340 t0.>»"i'‘ 3 return 
54350 b^^la^ 8 gosub 54500 

54360 if f:$«"d'' then gosub 54580 a goto 54340 
54370 l<l-l)=b 8 goto 54340 

54500 rern************* label gefunden 8< eintragen 

54501 8 

54510 for t»0 to 1 
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54520 if l’$<t)<>b$ then next 

54540 if tOl + 1 then ^$»"01" i vq“l i return 

54550 a l<l)«»pc a vq«l a 1»1+1 a 1 

54560 return 

54570 8 

54580 + l B •f$(f)«zn$+" "+b45+" doppelt de-finiert." 

8 printf‘^<*f) 8 return 

54800 rem************* label zu mnemonic »uchen 

variable adressse 

54801 a 

54805 y»len(b$) 

54810 if b$«"accu" then op'/.“l a ce’/.«10 a by“l a gosub 57000 
8 return 

54820 if left$(bJ>,l)»"#" then 58000 

54830 if left4f<blP,l)«‘'<" and r i ght$ (b«:, 3) , x ) " then 58400 

54840 if left$<b$,1)»"(" and right$<b$,1)«")" then 58200 
54850 if left^p<b$,l)»" <" and right* (b$,3)»") ,y" then 58600 
54860 if right*<b*,2)«",x" then 58800 
54870 if right*(b*,2)»",y" then 59000 

54880 goto 59200 

54881 8 

55200 rem************* Operand b* - b dez 

55201 3 

55205 if left*(b*, l)«=chr*(34> then b=0 a return 
55210 if left*<b*,1)»"*“ then gosub 57800 a return 
55220 if a®c(left*<b*,l)>>47 and aec(1eft*<b*,1)><58 then 
gosub 57900 a return 

55230 for t«0 to 1 a if l*(t)<>b* then next 
55240 if t-l+l then gosub 62400 

55245 if t«l+l then print ehr*(13)jb*j" noch nicht 
definiert." 

55250 if t = l+ land (ce7.“l orce7.“4orce7.“5) then b“255 
a B*(®)«b* 8 s(B)«pc 3 B«®+1 8 retum 

55254 rem print"55254 b«256*256‘' 

55255 if t«H-l then b»256*256-l a s*<s)»b* a B(s)«pc 
B b»b+1 a return 
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55257 if k?“! then k7"0 i return 

55260 b«l(t> 8 return 

55261 8 

55300 rern************* hex nach dez b$-b 

55301 8 

55310 he:>«mid<P<b$,2,len<b$)-l) 

55320 goaub 59700 

55330 b«de 8 return 

55331 3 

55400 rem************* kein Operand moeglich - fehler 

55401 3 
55410 f»f+l 

55420 f$<f)“zn$+" "+b$+" als Operand nicht moeglich." 

8 printf^<f) 

55430 return 

55431 8 

55500 rem************* ein-byte befehl 

55501 8 

55510 me$“b$ 8 op*/.«! 8 ce7."0 

55520 goaub 55600 

55530 c0«>>co 8 goaub 60100 

55540 pc»pc+l 

55550 t0$-"l" 8 mn*«"j" 

55560 return 

55561 8 

55600 rem************* maachinencode co featatellen 

55601 8 

55610 tl«len<t$)-6 
55620 for t«0 to tl/0-1 

55630 if ce7.»aBc(mid$(t$,13+t*8,l> )-4B then 55685 
55640 next t 
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55660 f»f+l 

55670 f $ <f ) * 2 n:^+" adressierung nicht erlaubt." 
a printf'#<f) 

55680 co“234 a return 

55681 a 

55685 If opV.Oval <mid<:<t$,14+t#8,l) ) then 55660 
55690 hei*:«mid4f(t$,7-Ht*8,2) a gosub 59700 
55695 co»de : return 

55699 a 

55700 rem************* befehl mit relativer adreesierung 

55701 a 

55710 me$=b$ a op7.“2 a cb7.«11 

55720 gosub 55600 

55730 c0“co a gosub 60100 

55740 pc®pc+l 

55750 t0:*:«"r" B mn^»"J" 

55760 return 

55761 8 

56000 rem************* be-fehl mit variabler adressierung 

56001 a 

56010 me^^b* a t0$“"m" a mn$“"j" a return 

56011 a 

56500 rem************* Operand zur relativen adresse 

56501 a 

56510 if left$(b$,l><>"$" then goto 56600 

56520 gosub 57800 a gosub 55300 

56530 if b>255 then 55670 

56540 c0«b a gosub 60100 

56550 pc«pc+l 

56560 t0$«"i" 

56570 return 

56571 a 

56600 if asc<left$<b$,l))>47 and asc< 1 eft$<b*,1))<58 then 
gosub 57900 a goto 56530 

56601 a 

56610 for t«0 to 1 a if l<:(t)<>b$ then next 


266 


56620 if t = l + l then n$(n)“bJ> ! n(n)'=pc s n“n + l i b*255 
9 goto 56530 

56630 b«255-pc+l<t) : goto 56530 

56631 9 

57000 rem************* co suchen 8< poken 

57001 9 

57010 if then t0^="i" 9 return 

57020 gosub 55600 

57030 c0«=co 9 gosub 60100 i pc“pc+l 
57040 if by»! then t0$«'’i" 9 return 

57050 if by“2 then c0«bl : gosub 60100 9 pc®pc+l 9 t0$“"i" 
9 return 

57060 c0“bl9gosub 60100 9 c0“b2 9 gosub 60100 9 pc“pc+2 
9 t04f«"i" 9 return 

57061 9 

57590 rem************* Operanden testen und bl/b2 setzen 

57591 9 

57600 if b<0 then 57650 

57610 if b<256 then by“2 9 bl“b 9 b2®0 9 return 
57620 if b>65536 then 57650 

57630 by«3 9 b2«int(b/256) 9 bl«b-b2*256 9 return 

57650 f=f + l 9 f<:(f )=zn^+'' •'+str$(b)+" nicht gueltig." 

9 printf.$(f) 9 f.$="J" 9 return 

57699 9 

57700 rem************* test ob hexzahl 

57701 9 

57800 for t®2 to len(b<:) 9 te=asc (mi d$ (b^, t, 1) > 

57010 if te>47 and te<58 or te>64 and te<71 then next 
9 gosub 55300 9 return 

57830 f«f + l 9 f$<f)»zn$+" •'+b$+" ist keine hexzahl." 

9 printf<:<f) 9 f$:="j" 

57040 b»0 9 return 
57009 9 

57890 rem************* test ob dezimalzahl 

57091 9 

57900 for t«l to len(b:$>“l 9 te“asc <mi d$ <b<=, t, 1) > 
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57910 

57930 

57950 

57979 

57980 

57981 
58000 

58200 

58400 

58600 

58800 

58810 

58820 

59000 

59010 

59020 

59200 

59210 

59220 

59299 

59300 

59301 
59400 
59599 

59700 

59701 
59710 
59720 
59730 
59740 
59750 


if te>47 and te<58 then next b b“val<b$) i return 
fof + i 3 f$(f)« 2 n$+" "+b<:-+'" ist keine dez i mal zahl - " 

s printf$<f> I 
b“0 B return 
8 

rem************* abtrennen der Operanden zu mnemonic 

B 

b<:«mid$ <b$,2,y-l) b ce'/.»»l b gosub 59400 b op*/.“by 
8 goto 57000 

b*:=mid<:(b$,2,y-2) s gosub 59400 8 op-/.=3 b ce‘/.«12 
3 goto 57000 

b$“mid$ (b$,2,y-4) s ce7.»=4 s gosub 59400 b op"/.«by 
3 goto 57000 

b$«mi d$ <b$, 2, y-4) s ceV.^S s gosub 59400 b op7.“by 
B goto 57000 

b$“mi d$ <b$, 1, y--2) s gosub 59400 b op*/.“by b ce’/.“6 
i-f by»3 then cey.«8 
goto 57000 

b<:“mi d$ <b$, 1, y-"2) b cey.“7 b gosub 59400 8 opy.»by 
i-f by“3 then cey.“9 
goto 57000 

b$“mid:^<b$, 1 ,y) b cey.=3 b gosub 59400 s op'/.^by 
i-f by»3 then cey.a'2 
goto 57000 
8 

rem************* b$ nach b 

3 

gosub 55200 s goto 57600 

3 

rem************* Umwandlung hex nach dez 
8 

de“0 

■for t“len(he$) to 1 step -1 
h2.$«mid.t (he<:,t, 1) 

•for tl“l to 16 

if mid$<"01234567B9abcdef",tl,l)<>h2$ then next tl 
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59760 

59770 

597B0 

60000 

60010 

60020 

60030 

60035 

60040 

60100 

60110 

60120 

60130 

60135 

60140 

60150 

60200 

60205 

60210 

61000 

61005 

61010 

61020 

61022 

61024 

61026 

61026 

61030 

61040 

61050 

61060 


de«de+<tl~l)*16<len <he$>-t) 
next t 8 return 
8 

rem************* oefnen der ausgabe - datei 
print#15,"a8"+na*+"zw" 

input#15,en ,em<:,et ,eB 8 rem print " **" 

jleft.$<em*,13) j "**" 

open 9,6,9,"08"+na$+"2w"+",p,w" 8 goBub 50600 
8 if enOO then stop 
print#9,chr<: <0) ehr# (0) i 
return 

rem************* ausgabe auf disk 
co"/.«co7.+ l 

if co7.<254 then bl ♦«bl♦+chr$ (cO) 8 return 
pri nt4t9 ,bl ♦! 

rem print"bl$ » "pbl^ 

bl^"chr^(c0) 3 coy.«l 

return 

rem************* uebergabe des letzten blocks 

rem prinf’bl^ «" j bl ♦, 1 en <bl ♦) 

print#9,bl$5 8 return 

rem ************ pass ii 

if st 064 then 50600 

goBub 60200 

dose 9 8 goBub 50600 8 if enOO then 46000 
rem open 9,6,9,na$+"zw,p,r" 

rem get#9,b^ 8 if stOO then dose 9 8 goto 61030 

rem if b^«"" then printOj 8 goto 61024 

rem print aBc(b$)j 8 goto 61024 

rem print aac<b^) 8 dose 9 8 gosub 50600 

8 if enOO then stop 

print#15,"S8"+na^+"-ziel" 

input#15,en,em$,et ,eB 8 rem print " **" 

!lleft^(em^,13)j"**" 

open9,6,9,"Os"+na$+"-ziel"+",p,w" 8 gosub 50600 
8 if enOO then goto 48000 
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61062 p7«pc 3 pc“pm s t2«int(pm/256) s t3“pm-t2*256 

61063 i-f po«! then print#9,chr<: (t3> chr$ <t2) p 

61064 if po«0 then pri nt#9 ,chrlf (1 )chr»(0 )? 

61065 goEub 62100 

61066 rem print"st«";st 

61070 open B,0,8,"Os"+na$+"zw"+",p,r" 

61072 get#8,b*4? 

61073 get#0,b$ 

61075 rem prinf'st «"pst 

61090 s<s>«65000 s n(n>«65000 s t2»0 s t3«0 
61100 if s(t2)=65000 and n(t3)«65000 then 61600 
61110 if s<t2)«65000 then t4«n<t3> s t5$»n$<t3> i t3-t3+l 
3 t6-4?»"r" 3 goto61150 

61140 if s(t2><n<t3) then t4»B<t2)+l s t5$«B$<t2) 3t2»t2+l 

3t6*»"a" 3 goto 61150 

61145 t4»n(t3) s t5$«n$(t3) s t3«t3+lB t6$«"r" 

61150 for t«0 to 1 

61160 if l$(t)<>t5$ then ne«t t 

61170 if t«l+l then f=f+ 1 s f $ (f ) »b4?+" nicht definiert." 

3 goto 61100 

61180 if t6$«"r" then 61500 

61190 b=l<t) 3 gosub 57630 

61200 get#0,g$ s if g$«"" then glf«chrlf <0) 

61205 if pc<>t4 then print#9,g$p s pc«pc+l b goto 61200 
61210 get#0,h$ 8 if h«:»"" then h$»chr$(0) 

61220 ifasc(g$>«255andaBC(h$)«255thenprint#9,chr$(b1) 
chr$ (b2);3 pc«pc+23 goto61100 

61230 ifasc(g$)«255andb<256thenprint#9,chr$(b)ph#p 8pc«pc+2 
:goto61100 

61240 f«f + lsf4:<f )«"label "+Btr$<pc)+" nicht zulaessig od. 

frueher zu vereinbaren." 

61250 goto 61100 
61500 b=l<t)~n(t3-l)-l 

61510 if pc<>t4 then get#0,g$ s if g$«"" then g$«chr$<0) 
61515 if pc<>t4 then print#9,g$p s pc«pc+l s goto 61510 
61520 if b>127 then f«f+1 b f♦(f)«"kein relativer sprung " 
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+str<:<pc>+" moeglich." 

61540 print#9,chr:$ (b) j i pc“pc + l i get# 8 ,g.> i goto 61100 

61600 gBt# 8 ,g$ s i-f g$="" then g$»chrt< 0 ) 

61601 if st“0 then print#9,g*| i goto 61600 
61603 print#9,g»| 

61605 print#9,chr$<0)chr$<0)chr.>(0) | 

61610 dose 9 s gosub 50800 s i f enOO then 48000 
61620 cloae 8 s gosub 50800 i if enOO then 48000 
61630 print#15, "b 8 "+na*+"zw'‘ 

61640 input#15,en,em#,et,es i rem print em$ 

61645 dose 15 


61650 rem open 8 , 8 , 8 ,na$+"-ziel,p,r" 

61660 rem get# 8 ,b$ i if stOO then 62000 

61670 rem if b$“"" then printOj a goto 61660 

61680 rem printasc(b$); a goto 61660 

62000 rem if b$«"" then print 0 a dose 8 a return 

62005 rem print aBc<b$) a dose 8 

62010 return 

62100 rem-basic köpf 


62105 if po«l then return a rem fuer normale prog gesperrt 

62110 prlnt#9,chr$(79)chr$(8>chr$<l>chr<:(0>chr*(158) 
chr4?<32)chr*<50>chr.><49) > 

62120 print#9,chr^(50>chr$(57)chr$(32)chr$(32)chr$(32> 
chr-^(32)chr$(32) j 

62130 print#9,chr$<86)chr:$(79)chr*<76)chr*(75>chr$(69) 
chr$<82)chr*<32)> 

62140 print#9,chr4?(38>chr*<32)chr$<69)chrt<78)chr$<7B> 
chr4P(79)chr$(32) j 

62150 print#9,chr$(32)chr$<32)chr<:<32>chr$(32)chr$(32) 
chr.>(32>chr:t(32) | 

62160 print#9,chr:$<32)chr#<32)chr$(32>chr*<32)chr<!(32> 
chr.>(32>chr<:(32) 5 

62170 print#9,chr<:(32>chr$<32>chr$<32>chr#(32)chr*<32) 
chr*<32)chrl:(32) 5 

62180 print#9,chr$<32)chr<:<32>chr$<32)chr$(32)chr$<32) 
chr<:(65)chr#<83) j 
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62190 prlnt#9,chr4:(83)chr$<69)chrl:<77)chr^(66)chr$<76) 
chr.$:(69)chr$<B2) n 

62200 print#9,chr.*:<32)chr$<32>chr$<32)chr$ (32)chr*<32> 
chr‘4f (32)chr$(32) ; 

62210 print#9,chr$<32)chr:$(32)chr$<49)chr$(57)chr$(56> 
chr$<^2)chr'$i0) j 

62220 print#9,chr$(0)chr$(0 )5 

62230 return 

62300 rem Schluss 

62305 na4P“" "+na$8 na$“mi d$ (na$ ,2,1 en <na$)-1) 


62330 

print" 

**** 

Programm beendet ! 


62340 

print" 


Das Zielprogramm 


62350 

print" 

**** 

kann geladen 


62360 

print" 


werden mit a 


62365 

print"' 

•aprint" 

load"-fchr4P (34) +na$4-"-z i el 

II 


+chr.$:<34)+",8, 

1 " 


62400 

rem- 


label suchen und in 

hb Ib 


62410 i-f l©ft^:(b^:,3)a"hb-" then goto 62440 
62420 i-f le-ft$(b$,3)«"lb-" then goto 62440 
62430 return 

62440 k7$“mid<:(b$,4,len<b4:)~3) a -for t»0 to 1 

62450 if l$(t)«k7'<: then goto 62400 

62460 next t 

62470 return 

62480 k7“l 

62490 If le-ft$(b$,3)»"hb-“" then b=int < 1 <t)/256) a return 
62500 b«l (t)-int <1 <t)/256)-»-256 a return 
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DER DISASSEMBLER 


Den Disassembler benötigen Sie, wenn Sie Maschinenprogramme 
analysieren wollen. Sie haben ja die Möglichkeit, mit Hilfe 
des Assemblers Maschinenprogramme zu schreiben, die Sie 
entweder alleine laufen lassen oder in ein 
MINIATUR - Programm oder BASIC - Programm einbinden können. 
Ein Disassembler hat die Aufgabe, ein Maschinenprogramm in 
die mnemonische Schreibweise zurückzuübersetzen. 

Da der Disassembler ein BASIC-Programm ist, können Sie es im 
Speicher nach Belieben verschieben. 

Haben Sie z.B. ein Maschinenprogramm von Speicherzelle 2047 
bis 10000 geladen, so können Sie den Disassembler ab 
Speicherzelle 10002 laden. Tippen Sie dazu im Direktmodus 
folgende Zeilen ein: 

POKE 44, INT( 10002/256 ) 

POKE 43, 10002 - 256 * PEEK( 44 ) 

POKE 10001 -1,0 

Anschließend können Sie mit : 

LOAD "DISASSEMBLER",8 

den Disassembler laden. 

Haben Sie das Maschinenprogramm in einem Speicherbereich 
außerhalb der Speicherzelle 2047 - 12000 geladen, so können 
Sie die letzte Zeile auch direkt eingeben. 

Vergessen Sie nach der Arbeit mit dem Disassembler nicht, 
den Rechner wieder in seinen ursprünglichen Zustand zu 
versetzen, damit Sie ungestört Weiterarbeiten können. Dies 
erreichen Sie durch folgende Zeilen : 
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POKE 43,1 
POKE 44,8 

Wollen Sie wissen, bis zu welcher Speicherstelle das 
Programm reicht, welches Sie gerade im Rechner haben, so 
können Sie das mit : 

PRINT PEEK(45) + PEEK(46) * 256 

erfahren. 

Laden Sie also den Disassembler und starten ihn mit : 

RUN 

Es erscheint ein Menue, welches Ihnen die Befehle des 
Disassemblers zugänglich macht. Gehen wir die Befehle 
einzeln durch : 

M : MENUE 

Durch Drücken der Taste < M > erscheint nach Ausführung 
eines Befehls wieder das Menue. Sie können sich also immer 
wieder über die möglichen Befehle informieren. 

F : FREIER PLATZ 

Dieser Befehl informiert Sie über die Anzahl der noch freien 
Speicherplätze, deren Adressen höher sind, als die 
Endadresse des Disassemblers. Sie können so durch 
Einschränken des Speicherplatzes für den Disassembler Platz 
für Maschinenprogramme schaffen. Dazu müssen Sie in die 
Speicherzellen 45 und 46 die entsprechenden Zahlen 'poken'. 

Z : DEZ NACH HEX 
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Mit diesem Befehl können Sie eine Dezimalzahl in eine 
Hexadezimalzahl umwandeln. 

Ich finde den Umgang mit Hexadezimalzahlen, so angebracht er 
für die Programmierung eines Mikroprozessors ist, als 
gewöhnungsbedürftig und so ist dieser ( und der folgende ) 
Befehl zu meinem persönlichen 'Lieblingsbefehl' geworden. 

X : HEX NACH DEZ 

Sie können eine Hexadezimalzahl in eine Dezimalzahl 

umwandeln. 


A : ADRESSEN SETZEN 

Hiermit sind Sie in der Lage, dem Disassembler mitzuteilen, 
in welchem Speicherbereich Sie arbeiten wollen. 

H : ZEIGER WEITER 


Zu Beginn des Programms steht der Arbeits - Zeiger auf der 
Speicherstelle, die Sie mit dem vorhergehenden Befehl als 
Anfang vereinbart haben. Durch Druck auf die Taste < H > 
erhöhen Sie den Zeiger um eins und geben den Inhalt der 
betreffenden Speicherzelle auf den Bildschirm aus. 

N : ZEIGER ZURUECK 

Mit diesem Befehl setzen Sie den Zeiger um eins zurück und 
geben ebenfalls den Inhalt der Speicherstelle aus. 


P : POKE 

Durch Drücken dieser Taste können Sie den Inhalt der 
Speicherstelle verändern, auf die der Zeiger weist. Sie 
werden nach dem neuen Inhalt der Speicherstelle gefragt. 
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Geben Sie diesen ein und drücken Sie < RETURN >. Der Inhalt 
der Speicherstelle wird nun entsprechend verändert und der 
Zeiger um eins erhöht. 

E ; BYTE EINSETZEN 


Sie werden nach der Anzahl der einzusetzenden Bytes gefragt. 
Tippen Sie die Anzahl ein und drücken Sie < RETURN >. Nun 
werden innerhalb des vorgewählten Speicherbereichs alle 
Inhalte der Speicherzellen ab der momentanen Zeigerstellung 
um die Anzahl der einzusetzenden Bytes nach oben verschoben. 
Die freiwerdenden Speicherzellen werden mit dem Dezimalwert 
234 gefüllt. Dies entspricht dem Mikroprozessor - Befehl NOP 
: NO OPERATION. 

L : BYTE LOESCHEN 

Hier müssen Sie die Anzahl der zu löschenden Bytes angeben. 
Ab Zeigerposition werden dann so viele Bytes wie angegeben 
gelöscht. Der Rest des vorgewählten Speicherbereichs wird 
entsprechend nach unten verschoben. 

Y : SYS(xxxxx) 

Mit der Taste < Y > können Sie ein Maschinenprogramm, das an 
der betreffenden Speicherstelle beginnt, starten. Die 
Adresse entspricht der Anfangsadresse des voreingestellten 
Adressbereichs. 

D : DISS & DRUCK 

Nun kommen wir zum Disassemblieren. Mit < D > können wir uns 
ein disassembliertes Programm auf einen Drucker ausgeben 
lassen. Es erscheint sowohl in hexadezimaler als auch in 
dezimaler Schreibweise. Wir geben als erstes an, ob wir 
Anfangs- und Endadresse in Hexadezimal-Zahlen oder lieber in 
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Dezimal-Zahlen eingeben wollen. Geben wir ein anderes 
Zeichen als ein 'J' ein, so müssen wir die Adressen in 
dezimaler Form eingeben. Den Ausdruck können wir jederzeit 
durch Betätigen der < RETURN > Taste beenden. 

F5 : DISS Sc PRINT DEZ 

Dieser Befehl gibt das disassemblierte Programm, das an der 
momentanen Zeiger - Position beginnt, in dezimaler Form auf 
den Bildschirm aus. 

F7 : DISS 8c PRINT HEX 

Ausgabe des disassemblierten Programms in hexadezimaler 
Form, sonst wie Befehl 'F5'. 

S : SAVE DISK 

Mit diesem Befehl können Sie den Inhalt beliebiger 
Speicherbereiche auf einer Diskette speichern. 

0 : OLD DISK 

Mit diesem Befehl können Sie den Inhalt von gespeicherten 
Speicherbereichen in den Speicher des Rechners laden. 


Probieren Sie in Ruhe alle Befehle des Disassemblers aus. 
Hier gilt wie immer : 'Ein wenig Übung ersetzt tausend 
Worte', aber den Spruch kennen Sie ja bereits! 
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Das Listing des Disassemblers : 


9995 rem*****#**-K■«•*#** Speicherbereich 

9996 3 
10032 : 

30020 pQke650,128 s en»49151 b an=40960 b 1a»an i 
30027 rern************* menue 


30029 8 

30040 prinf 

e 

8 byte einsetzen" 

30045 print" 

1 

B byte loeschen" 

30050 print" 

h 

B Zeiger weiter" 

30055 print" 

n 

8 Zeiger zurueck" 

30056 print" 

z 

8 dez nach hex" 

30057 print" 

X 

8 hex nach dez" 

30060 print" 

y 

8 sys <"iann")" 

30065 print" 

a 

3 adressen setzen" 

30068 print" 

s 

B save disk" 

30070 print" 

o 

8 old disk" 

30071 print" 

f 

8 freier platz " 

30072 print" 

p 

s poke" 

30073 print" 

m 

8 menue" 

30074 print" 

d 

8 dis 8< druck" 

30076 print" 

fSB dis print dez" 

30077 print" 

f7 

: dis t< print hex" 

30080 get 

8 

if w$»"" then goto 30080 

30085 if wJl?« 

"h" 

then la“la+l 3 print lajpeekda) 

B goto 30080 

30090 i-f 

"n" 

then la®la~l 8 print lappeekda) 

B goto 30080 

30100 it 

"e" 

then goBub 31000 8 goto 30040 

30102 if 

II ^ II 

then goBub 32200 

30104 if 

"M " 

then gosub 32400 

30110 if wif» 

II ^ II 

then gosub 32000 s goto 30040 


al 
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30120 if w.$=chri: (135) then goaub 44300 
30130 i-f w.$«chr^(136) then goaub 44300 


30131 if 

w^=»"f •• 

then 

print" 

freier platz i"jfre<8) 

30132 if 

w^="a" 

then 

goaub 

40000 

30133 if 

w$="o" 

then 

goaub 

41000 

30135 if 

w$="a" 

then 

input" 

anfangaadresae"p an 

30136 if 

w$«"p" 

then 

print 

lap 8 input po 3 poke la,po 

t la=la+l 




30137 if 

w$="y" 

then 

print" 

aya<"panp")"p i ByB<an) 

3 print" 

ende" 




30138 if 

w^="m" 

then 

30040 


30139 if 

w$="d" 

then 

44000 

• 

30140 if 

w*="a" 

then 

input" 

endadreaae" p en i la<aan 


30141 s 

30150 goto 30080 

30997 rem************* bytea einaetzen 

30999 s 

31000 print" wieviele bytea" 

3 input" einaetzen "ilby 

31010 -for t^en to la+by atep-l i poke t,peek(t-by) i next 
31020 for t“la to la+by-1 s poke t,234 s next 
31030 return 
31032 3 


31997 rem************* 


bytea loeachen 


31999 3 

32000 print" wieviele bytea" 

3 input" loeachen "?t>y 

32010 for t«la to la+by t poke t,peek<t+by) 
32020 return 
32022 I 

32200 rem************* dez nach hex 

32202 8 

32210 input"welche dezimal zahl"jde 
32220 goaub 45000 

32230 prinf'die hexzahl lautet: "jhe$: 

32240 return 


next 
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32241 i 

32400 rem************* he« nach dez 

32402 8 

32410 inpuf'welche hexzahl " p he:> 

32420 gosub 32600 

32430 prinf'die dezimalzahli "pde 

32440 return 

32441 8 

32600 rem************* Umwandlung hex nach dez 

32602 8 
32610 de-O 

32620 -for t«len<he$) to 1 step-l 
32630 h2$«mid:f (he$,t, 1) 

32640 -for tl«l to 16 

32650 i-f mid$("01234567B9abcdef ",tl,l)<>h2$ then next tl 
32660 de=de+ < 11 -1) * 16 < 1 en (he:> > -t > 

32670 next t 

32680 return 

32681 8 

39997 rem************* speichern disk 

39998 8 

40000 print""8input" name der datei"pw$ 

40005 al«0 8 a2»0 
40007 print" speichern" 

40010 input" von "pal 
40020 input" bis "pa2 

40025 ac^B 8 rx“8 s ry«l 8 gosub 42200 s sys 65466 
40030 gosub 42500 

40040 ac“len<w<:) 8 rx«175 b ry»2 i gosub 42200 s sys 65469 
40050 ac«251 8 rx=peek<253) s ry“peek(254> 8 gosub 42200 
8 sys 65496 
40060 gosub 42900 

40070 return 

40071 8 

40997 rem************* laden von disk 

40998 3 
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41000 print”" i input" name der datBl"!iw'4P 
41005 al«»0 8 a2»0 
41007 print" laden" 

41010 input" von "jal s a2«0 

41025 ac«8 s rx«8 8 ry“l s gosub 42200 s sys 65466 
41030 gosub 42500 

41040 ac“len(w^) 8 rx«175 8 ry«2 8 gosub 42200 8 sys 65469 
41050 ac«0 8 r)K=>251 s ry“252 s gosub 42200 8 sys 65493 
41060 gosub 42900 

41070 return 

41071 8 

42200 rern************* sys 

42201 8 

42210 poke 780,ac 
42220 poke 781,rx 
42230 poke 782,ry 

42280 return 

42281 8 

42500 rem************* setzen der register 680 f-f 
42580 rem** 251 8« l.b. start-adresse zum laden 
/ speichern 

42590 rem** 252 8® h.b. start-adresse zum laden 


/ speichern 

42600 rem** 253 8« l.b. ende-adresse +1 zum laden 
/ speichern 

42610 rem** 254 8“ h.b. ende-adresse +1 zum laden 
/ speichern 

42640 rem** 687-700 8« name 

42760 if al“0 and a2«0 then al^an 8 a2«en 

42770 poke 251,al-int(al/256)*256 

42780 poke 252,int(al/256) 

42790 poke 253,a2+l-int((a2+l)/256)*256 
42800 poke 254,int((a2+l)/256) 

42810 -for t=687 to 686+len(w:t) 

42820 poke t, asc <mi d’^ <, t-686,1 > ) 

42830 next 
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42840 return 

42841 s 

42900 rem************* fehlerkanal lesen 

42901 s 

42910 open 1,8,15 

42920 input#l ,ef ,em.>,et ,es 

42930 if ef«0 then dose 1 i return 

42940 prinf'** fehler auf disk 

42950 print"** fehler nummer i"jef 

42960 print"** fehler nachricht"|emf 

42970 print"** fehlerhafte spur"pet 

42980 print"** fehlerhafter sector"ses 

42990 dose 1 : return 

42991 B 

42992 I 

44000 rem************* dis druck 

44002 B 

44010 print"!iste ausdrucken " 

44030 open4,4 

44033 input"eingabe in hex "jef^ 

44035 if Bf$<>"j" then 44050 

44040 input"von adresse " 5 he$ b gosub 32600 i al“de 

44045 input "bis adresse " p he.> i gosub 32600 b a2"de 

8 goto 44065 

44050 input"von adresse "pal 

44060 input"bis adresse "pa2 

44065 print"unterbrechen mit < return >" 

44080 if al>a2 then dose 4 b goto 30027 

44085 get ef .> b if ef ♦=chr.f < 13) then dose 4 b goto 30027 
44090 gosub 48500 
44100 prlnt#4,pr4f 
44110 al«al+oe 

44120 goto 44080 

44121 8 

44299 8 

44300 rem************* dis h print hex / dez 
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44302 s 

44320 a9“la c al=a9 
44330 gosub 48300 

44335 i-f < 135) then pr*“mi<pr^ 

: goto 44350 

44340 pr«:»le-ft$(pr$,35) 

44350 print pr$ 

44360 get e-f’$ t if ef$®chr$(13> then la 

44370 al«al+oe j goto 44330 

44371 8 

45000 rern************* Umwandlung dez 
45002 el»3 
45005 he$«"" 

45010 for d^el to 0 step -1 

45020 hl«16d 8 h2=int<de/h1) 

s he.^=he.$+mi d:^ < "O123456709abcdef " ,h2+l, 

45030 next 

45040 return 

45050 8 

45060 rem************* Umwandlung dez - 
45062 8 

45065 el«l 8 goßub 45005 8 return 

45099 3 

45100 rem************* 

45102 8 

45110 pr^«prt+" *****" 

45120 *******" 

45130 al»al+l 
45140 return 
45199 8 


,30,len<pr<:)-35) 


“al 8 return 


- hex 4 - »tellig 


1 ) 8 de«de~h2*hl 


hex 2 ~ stellig 


oe"0 / -fehler 
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oe“l / 1 byte 


45200 rern************* 

45202 : 

45210 pr$»pr<:+" 

45220 

45230 return 

45299 J 

45300 rern************* oe“2 / 2 byte 

45302 s 

45310 de“peek( ä 1+1) i gooub 45060 
45320 pr*«pr*^+" "+he<:+" 

45330 de=peek(al + l) t hi.*:=hi:$+" "+right4P(" "+str:> (de) , 3) 

4. )• >i 

45340 return 
45398 : 

45400 rern************* oe“3 / 3 byte 

45402 8 

45410 -for t“l to 2 

45420 de«peek(al+t) s gosub 45060 

45430 pr*«pr.*:+" "+he$ 

45440 de^peek(al+t> t hi$“hi$+" "+right$(" "+str*(de),3) 
45450 next 
45460 return 
45498 3 

45500 rem************* ein byte betehl 

45502 I 

45510 pr:t:“pr$+" " 

45520 return 
45698 8 

45700 rem************* unmittelbar 

45702 3 

45710 goBub 48300 
45720 pr.$»pr*+'‘ #"+he$+" 

45730 hi<:«hi$+" #"+de$+" 

45740 return 
45898 8 

45900 rem************* absolut 
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45902 

8 



45910 

goBub 48400 8 gosub 45960 



45920 

pr$«pr:>+" " 



45930 




45940 

return 



45960 

pr^:«=pr#+" "-fhei^ i hi:*:»hi$+ 

■" "+de<: 8 

46098 

8 



46100 

rem************* 

sei te 

nul 1 

46102 

8 



46110 

gosub 48300 8 gosub 45960 



46120 

pr:$s=pr.$+" " 



46130 

hi$«hiJr+" 



46140 

return 



46298 

8 



46300 

rem************* 

(ind ,: 

K) 

46302 

8 



46310 

gosub 48300 



46320 

pr‘^=pr$-t-" ('•-»-he.$+" ,x) " 



46330 

hi$»hi:J:+" <"+de.$+" ,H) " 



46340 

return 



46499 

8 



46500 

rem************* 

(i nd) 

,y 

46502 

8 



46510 

gosub 48300 



46520 

prlf«pr$+" ( "+he|:+" ) , y " 



46530 

hi$«hi$+'' <"+de$+") ,y‘' 



46540 

return 



46699 

8 



46700 

rem************* 

sei te 

nul 1 

46702 

8 



46710 

gosub 48300 8 gosub 45960 



46720 

pr.>>=pr^+” ,x" 



46730 

hi:if»hi$+" ,x" 



46740 

return 



46898 

8 



46900 

rem************* 

sei te 

nul 1 


return 
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46902 

8 


46910 

goBub 48300 t gosub 45960 


46920 

pr<f«pr:>+'' ,y" 


46930 

hi^=hi$+" ,y" 


46940 

return 


4709B 

s 


47100 

rem************* 

absolUte 

47102 

: 


47110 

goöub 48400 i gosub 45960 


47120 

pr$«pr|:+" ,x" 


47130 

hi:$»hl$+" ,H‘' 


47140 

return 


4729B 

s 


47300 

rem************* 

absolute 

47302 

3 


47310 

goBub 48400 : gosub 45960 


47320 

pr:t«pr4?+" ,y" 


47330 

hi4P=hi$+" ,y" 


47340 

return 


47499 

B 


47500 

rem************* 

akku 

47502 

8 


47510 

pr$“pr4P+" accu " 


47520 

accu '' 


47530 

return 


4769B 

3 


47700 

rem************* 

relatiV 

47702 

3 


47710 

i-F peek (al + 1) >127 then 47750 

47720 

sp«al+2+peBk(al+1> 


47730 

goto 47800 


47740 

3 


47750 

Bp«al-“254+pcek (al + 1 ) 


47760 

8 


47800 

de«sp 8 gosub 45000 


47810 

pr |:=Hpr-^+" ‘'+r i ghtif ( " *4?" 

+he-4:,5)+" 
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47820 "+right-^(" 

47830 return 
47898 8 

47900 rem************* 

47902 8 

47910 goBub 48400 
47920 pr.t:=pr-^+" (•'+he:l?+") 
47930 hi$«>hi$+’‘ <"+de|:4"> " 

47940 return 
48098 8 

48100 rem************* 

48102 8 

48110 pr$=le-ft$(pr.$, 16)+" 
48120 hi*4?«le-ft*(hi4f,23)+" " 

48130 i-f op<32 or op>95 then 
8 return 


"+atr$(sp),5)+" 


indirekt 


fehler 


hi ♦“hi $=+" kei n ascii - Zeichen" 


48140 hi ♦“hi ♦+"c^Bci i ~ Zeichen b "+chr$<op) 

48150 return 

48299 8 

48300 rem************* aufarbeitung 1 byte in dez und hen 
48302 8 

48310 de“peek(al+l) 8 d9“de 
48320 goBub 45060 
48340 he$=" ♦"+he$ 

48350 de*“right$(" "+str$<d9),5) 

48360 return 

48398 8 

48399 8 

48400 rem************* aufarbeitung 2 byte in dez und hex 
48402 8 

48410 de“peek (al+1) +pBek (al+2)*256 8 d9“de 
48420 goBUb 45000 
48440 he$“"$"+he$ 

48450 de^“right^(" "+Btr-4f (d9) , 5) 

48460 return 
48498 8 
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40300 rem************* disassemblier schleif© 

48502 : 

40510 de«al 
40520 gosub 45000 

48530 pr.$:«he$ s hi*«" "+str*<al) 

48540 op«peek(al> 

48550 gosub 49000 
40560 de«op 
48570 gosub 45060 
48500 pr*«pr*+" "+he* 

48590 hi*»hi*+" "+right*(" "+str$<op),3) 

48600 on oe+1 gosub 45100,45200,45300,45400 
40610 pr*=pr*+" "+me* 

40615 hi*«hi*+" "+me* 

48620 if cey.>7 goto 48627 

48622 on ce7.+ l gosub 45500,45700,45900,46100,46300,46500 

,46700,46900 

48625 goto 40630 

48627 on ce7.~7 gosub 47100,47300,47500,47700,47900,40100 
40630 pr*«pr*+'‘ "+hi* 

48640 return 

48641 3 

49000 rem************* me*,oe,ce7. suchen 

49010 te*«"k" 3 se«4 
49020 t«asc(te*) 

49030 gosub 53700 

49040 he*«mid$(t*,7+Be*8,2) s gosub 32600 
49030 if op«de then 49500 

49060 if op<de then te*«mid*(t*,9+se*8,1) 

8 se=val (mid*<t*, 10+se*8,1))-1 3 goto 49200 

49070 te$«mid*(t*,ll+Be*B,1) s se«val(mid*(t*,12+se*8,1))-1 
8 goto 49200 

49200 if se«““l then me*«"*" s oe«0 s ce7.«13 b return 
49210 goto 49020 
49500 me*=left*(t*,3) 

49510 oe«val(mld*(t*,14+se*0,1)) 
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49520 ce"/.=asc (mid# (t$, 13+se#8,1) ) -48 
49530 return 

53700 rem************* laden mit adrease t 

53705 on int<t/10)-2 goto 53710,53720,53730,53740,53750 
,53760,53770 

53710 on t~34 gosub 53801,53802,53803,53804,53805 8 return 
53720 on t~39 gosub 53806,53807,53808,53809,53810,53811 
,53812,53813,53814,53815 8 return 

53730 on t-49 gosub 53816,53817,53818,53819,53820,53821 
,53822,53823,53824,53825 8 return 

53740 on t-59 gosub 53826,53827,53828,53829,53830,53831 
,53832,53833,53834,53835 a return 

53750 on t-69 gosub 53836,53837,53838,53839,53840,53841 
,53842,53843,53844,53845 s return 

53760 on t~79 gosub 53846,53847,53848,53849,53850,53851 
,53852,53853,53854,53855 s return 

53770 gosub 53856 s return 

53771 8 

53801 t:$:="adc C C369C C C C 1265#7k23275#8k3626dC C C C237d[: C C C8379 
C C#59361C C C C4271C C C C52"8 return 

53802 " and#-/.329 ILlll 225 C C j 23235^8 j 3622d C C J 4233d IZll 8339 
C C.$59321?l C C4231 C C C C52" 8 return 

53803 t$«=«'‘asl CC30aL[:[:C8 106C C C C3216C C C [:620eC C C C231e, 1*183" 

8 return 

53804 tar‘«"bcc$ ' 290y 1 wl; 2" 8 return 

53805 t^^-'hosC ( 2 bOul @65 2" 8 return 

53806 t$«"beqC C2fOdlp1 1 2 "8 return 

53807 t*^:»"bi t«<--3244?7$2322c J 1$423" a return 

53808 t#“"bmi L i:230i lol ; 2" 8 return 

53809 t$«"bne*,2d08111 5 2"s return 

53810 t:t»"bpl CC210gl01 j2"8return 

53811 t-4f«="brk + . lOOC C C COl " a return 

53812 t^:«"bvcC/250f 121 5 2" a return 

53813 t-^»"bvsC C270hlql ü 2" s return 

53814 ) 8118e3e601" s return 

53815 t-^«"cldC C ld8434501" a return 
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53016 t:^»"cll 13158i3:501"3return 

53817 t$="clvCClb0CCCLOl"ireturn 

53818 t.l?a''cmp263c9C C C C 12c547=»132d5407262cd637323dd467483d9 
C C C C93c1616242d1C C C C52"3 return 

53019 t‘$»"cpx C C3e0-»-l < 112e4n7n232ecC C C C23" 3 return 

53820 t$»"cpy573cOC C C C12c4C C L C32cc C C C C23":return 

53821 t$«"decC C3c6C C C C32d6C C C C62ceC C C C23deC C C C03"3 return 


53822 t$«"dex45lca424401"3 return 

53823 t*«"deyC8180CCCCOl"8return 

53824 t$="eor C C349C C C [112458 7c23255s 0c3624d C [:c4235d3 6c5e359 
CCi:C93411 lCC4251CCCC52"8return 

53825 t$“"inc9<3e652<132f6C C ZL62eBl C ll2Ziel C C CB3"3 return 

53826 t" i nx C «1 e8 C Cn 101" 8 return 

53827 t$="inyC ClcB714101"8 return 

53828 t$«"jmp0m34ccl8 4236cklk4<3"8 return 

53829 t^«»" jsr C [:320c C C C23" 8 return 

53830 t$«"1da?a3a9C C C C12a5alVl32b5b3a362adb4a423bd C C C C03b9 
Ö3b593alC C C C42blC C C C52"8 return 

53831 t-^«" 1 dx C C3a2Q7b212a6C C C C32b631 C C72aeC C C C23beb 15193" 


8 return 


53032 t$»" Idy©d3a08<l ' 112a4C C C C32b4a0C C62ac C C C C23bcx ia503" 
8 return 


53833 t$="1sr C C34a:1C C s146C C C C3256C C C C624eC C C C235eL C C CB3" 
8 return 


53834 t$'«"nopceleas ln401" 8 return 

53035 t$“"oraC C309C C7.11205e7"/.23215e87.3620del7.4231dC C C C8319 
C Ce59301-1C C4211C C C C52"8 return 

53836 t4f»"phabl 1408 2>101" 8 return 

53837 t$«"phpC ClO0e2e4Ol"8 return 
53830 t-4f="pl agC 168#2>20r' 8 return 

53839 t$="plphkl28)1)201"8return 

53840 tlf="rol C C32a^l C C 8 126C C C C3236C C C C622eC C C C233e>:5ml83" 

8 return 

53841 t<:«"ror jl 36a#l C C 8 166C C C C3276C C C C626 b# 4C C237e j5a503" 

8 return 

53842 t$«"rtiCC140CCCCOl"8return 


290 


53843 t-^="rtsfsl60. 1 /101" s return 

53844 t$«"Bbc llZe9ll C C 12e5C C C C32-F5n8|i 262ed53p 323f dn6p 4B3f 9 
C C C C93elC C C C42f1C C C C52"ireturn 

53845 t♦«"secn C138$3$601return 

53846 t.|f«"sedor If 8n3n501" s return 

53847 ti:«"sei C C 178#3tt601" t return 

53848 t4f«"BtaqC385tlBl3295t2s2628dt3s3239dC C C C8399C C C C9381 
CCCr4291CCCC52"Ireturn 

53849 t:|f«"stxpw38691 C [:3296C C C C728eC C C C23" i return 

53850 t2r="sty C C384r6C C3294r7C l62BcLL C 1:23" t return 

53851 t“ tax tV1 aa@2@401" s return 

53852 t:$«'‘tay [ C Ia8a2®101" : return 

53853 tlf«"tyauy 198r2z 101" s return 

53854 t$*’'tsx C C IbaC C C COl" i return 

53855 t.t:«"txax 2 18arlr301"ireturn 

53856 t$«"tMsC C19ar5r401“ i return 


291 


DAS BETRIEBSSYSTEM UND DER INTERPRETER DES CBM-64 : 


Ein Rechner besteht nicht alleine aus einem Mikroprozessor 
und einem Speicher, sondern auch aus einer Reihe von 
Geräten, z.B. Ausgabegerät wie Bildschirm und Drucker, 
Geräte zur Datenspeicherung wie Diskettenstation oder 
Bandlaufwerk. Damit diese Geräte benutzt werden können, 
braucht der Mikroprozessor spezielle Programme. Diese 
Programme sind in dem Rechner bereits als Unterprogramme 
enthalten und man nennt dieses Programmpaket das 
Betriebssystem. 

Zudem beherrscht der Rechner von Hause aus schon die 
Programmiersprache Basic. Um nun Anweisungen aus Basic 
verstehen zu können, verfügt der Rechner über einen 
sogenannten Basic-Interpreter. Dieser Interpreter ist nichts 
weiter als ein Programm in der Sprache des Prozessors, das 
Anweisungen von Basic analysieren und die entsprechenden 
Aktionen in Gang setzen kann. 

In diesem Kapitel wollen wir uns damit beschäftigen, wie 
diese schon vorhandenen Programme für unsere eigenen Zwecke 
zu nutzen sind. Die Programme sind als. Unterprogramme 
geschrieben, an die wir nur die nötigen Informationen 
übergeben müssen. Meist geschieht dies mit Hilfe der X-, 
Y-Register und des Akkumulators. 

Die Unterprogramme des Betriebssystems werden gebraucht, um 
externe Geräte zu benutzen, aber warum wollen wir uns mit 
den Unterprogrammen des Interpreters beschäftigen? In jeder 
Programmiersprache sind bestimmte Aufgaben zu erfüllen, wie 
z.B. eine Fließkomma-Arithmetik, oder Entscheidungen zu 
treffen, und so können wir uns aus dem Basic-Topf bedienen, 
falls dies gewünscht wird. Da es sehr zeitraubend ist. 
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schnelle und vor allen Dingen funktionsfähige 
Maschinenprogramme zu schreiben, sollten schon gewichtige 
Gründe vorliegen, wenn man eigene Routinen zu diesen 
Aufgaben schreiben will. 


Dieses Kapitel wird somit zwar auf der einen Seite sehr 
speziell auf den CBM-64 ausgerichtet sein, auf der anderen 
Seite jedoch verfügen die meisten Mikrocomputer über ein 
Betriebssystem und einen Interpreter, die denen aus dem 
Hause Commodore in vielem ähnlich sind. Für viele Rechner 
gibt es entsprechende Literatur, aus der ersichtlich ist, wo 
sich die entsprechenden Unterprogramme im Rechner befinden 
und wie die Parameter zu übergeben sind. 

Haben Sie einen anderen Commodore-Rechner als den CBM-64, so 
finden Sie entsprechende Hinweise in dem Buch '64 intern'. 
In diesem Falle können Sie die Informationen aus diesem 
Kapitel bis auf die Einsprungadressen in die Unterprogramme 
übernehmen. ' 


Genug der Vorrede, los geht's! 

Schauen wir uns als erstes die Bildschirmausgabe an. 


SETZEN DES CURSORS: 

Für diese Aufgabe benötigen wir ein Unterprogramm, das mit 
unterschiedlichen Parametern aufgerufen wird. Um den Cursor 
an eine bestimmte Bildschirmposition zu setzen, übergeben 
wir im X-Register die Zeile und im Y-Register die Spalte, in 
der der Cursor erscheinen soll. Dann müssen wir das 
Carry-Bit mit 'CLC' löschen (auf Null setzen) und in das 
Unterprogramm ab $FFFO springen. Nun wollen wir in einer 
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Anweisung immer nur entweder die Spalte oder die Zeile 
verändern. Wir wissen aber nicht, wenn die Spalte geändert 
werden soll, in welcher Zeile der Cursor sich gerade 
befindet. Also müssen wir erst die Cursorposition holen. 
Dies geschieht mit demselben Unterprogramm, aber mit 
gesetztem Carry-Bit. Das Carry-Bit wird mit 'SEC' gesetzt. 

Der CBM-64 fängt bei Zeilen und Spalten mit Null statt mit 
Eins an zu zählen. Spalre 17 hat also intern die Nummer 16. 

Beispiel: Der Cursor soll in Spalte 22 gesetzt werden. 

SEC 

JSR $FFFO 
CLC 

LDY #21 
JSR $FFFO 

BILDSCHIRM LOSCHEN: 

Hierfür gibt es ein eigenes Unterprogramm*. 

JSR $E544 


AUSGABE EINES ZEICHENS AUF DEN BILDSCHIRM: 

Hierzu ist der ASCII-Wert des auszugebenden Zeichens in den 
Akkumulator zu bringen und zur Unterroutine ab $FFD2 zu 
springen. 
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Beispiel: Ausgabe des Zeichens A auf den Bildschirm 

LDA #65 
JSR $FFD2 

ZEICHENKETTE AUF DEN BILDSCHIRM AUSGEBEN: 

Es gibt eine Routine, die eine ganze Zeichenkette ausgibt, 
wenn diese in Anführungszeichen eingeschlossen ist. Dazu 
müssen wir die Adresse des ersten Zeichens (des 
Anführungszeichens) im Y-Register und im Akkumulator 
übergeben und in das Unterprogramm ab $AB1E springen. 

Im Y-Register wird der Platz innerhalb der Seite und im 
Akkumulator die Seitennummer übergeben. Die Information über 
die Seite wird auch als der höherwertige Teil der Adresse 
bezeichnet, der Platz innerhalb der Seite als der 
niederwertige Teil. Der höherwertige Teil wird im Assembler 
mit HB-Adresse und der niederwertige mit LB-Adresse 
abgekürzt. Der Assembler rechnet dann die Seite und den 
Platz aus. 

Beispiel: Die Zeichenkette ab $1000 soll ausgegeben werden. 

Adresse .EQU $1000 
LDY LB-Adresse 
LDA HB-Adresse 
JSR $AB1E 

ZEILENVORSCHUB: 

Hierzu ist das gleiche Unterprogramm zu benutzen wie in 
Ausgabe eines Zeichens auf dem Bildschirm. Der ASCII-Wert 
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des Zeilenvorschubs (auf dem Bildschirm genügt das Senden 
eines Wagenrücklauf-Zeichens!) ist 13. 

LDA #13 
JSR $FFD2 

Diese Funktion wollen wir als Unterprogramm definieren mit 
dem Namen ZVOR. 

ZVOR .MARKE 
LDA #13 
JSR $FFD2 
RTS 


UMLEGEN DER AUSGABE AUF EINEN DRUCKER: 

Dies ist eine etwas umfangreichere Angelegenheit. 

Als erstes müssen wir einen Ausgabekanal für den Drucker 
eröffnen. Dazu müssen wir in der Speicherstelle 

183 die Länge des Filenamens 
in 184 die logische Filenummer 
in 185 die Sekundäradresse und 
in 186 die Gerätenummer 

abspeichern. Einen Filenamen wollen wir nicht angeben, 
deshalb ist die Länge des Namens gleich Null. 

LDA #0 
STA 183 

Die logische Filenummer und die Geräteadresse soll den Wert 
Vier haben; 
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LDA #4 
STA 184 
STA 186 


Die Sekundäradresse hat den Wert 7, um den Drucker auf 
Groß-Kleinschrift zu schalten. 

LDA # 7 
STA 185 


Nun springen wir in Unterprogramm zum Eröffnen einer Datei: 
JSR $FFCO 

Die Ausgabe wird auf diesen Kanal gelegt. Dazu gibt es die 
Unterroutine 'Ausgabegerät setzen', die Kanalnummer muß im 
X-Register übergeben werden. 

LDX #4 
JSR $FFC9 

Ab jetzt werden alle Ausgaben auf den Drucker gesendet. 


AUSGABEN ZURÜCK AUF DEN BILDSCHIRM HOLEN: 

Um für alle Fälle den Druckpuffer im Drucker zu leeren, 
senden wir einen Vorschub. 

JSR ZVOR 
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Danach müssen wir das Ausgabegerät zurücksetzen: 

JSR $FFCC 

Der Kanal 4 ist zu schließen. Dazu übergehen wir die 
Kanalnummer im Akkumulator: 

LDA $4 
JSR $FFC3 
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DIE FLIEßKOMMA-ARITHMETIK: 


Zunächst einige grundsätzliche Überlegungen: 


Unter einer Operation wollen wir die Addition, Subtraktion, 
Multiplikation, Division oder Potenzierung von zwei 
Fließkommazahlen verstehen. 

Weiter wollen wir davon ausgehen, daß die Fließkommazahlen 
schon in der internen Darstellung abgespeichert sind. 

Dann gibt es zunächst mehrere Möglichkeiten, eine Operation 
zu realisieren. Zwei werden erläutert: 

Immer wenn wir eine Operation durchzuführen haben, schreiben 
wir an dieser Stelle im Programmtext das Programm zu der 
betreffenden Operation. Ein Unterprogramm kann ohne weiteres 
nicht geschrieben werden, da unsere Variablen im Speicher 
vertreut liegen und jede Operation auf anderen 
Speicherstellen stattfinden müßte. Nur ist es eine große 
Speicherplatzverschwendung, immer - bis auf die Adressen - 
gleiche Programme sehr oft in einem Programm aufzuschreiben. 
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Deshalb kann Möglichkeit 2 genommen werden: 


Wir wählen zwei Speicherplatzbereiche für je eine 
Fließkommazahl aus, bringen zu Beginn der Operation die 
entsprechenden Variablen in diese Speicherbereiche und 
springen dann in das Unterprogramm für die entsprechende 
Operation, die dann auf den beiden Bereichen arbeitet. Das 
Ergebnis kann dann in einen Speicherbereich übernommen und 
in den Speicherbereich für die Zielvariable übertragen 
werden. Dies dauert zwar in der Ausführungszeit etwas 
länger, da wir die Inhalte von Speicherbereichen umspeichern 
müssen, spart aber enorm viel Platz. Zudem besitzt der 
Interpreter Routinen für alle notwendigen Operationen. 

Es stehen zwei Speicherbereiche zur Verfügung, mit denen wir 
rechnen können: Abkürzend wollen wir den ersten FAC und den 
zweiten ARG nennen. Dies in Übereinstimmung mit dem 
ROM-Listing im Buch '64 intern'. Das Ergebnis einer 
Operation steht im FAC (Fließkomma-Akkumulator). 

Benutzen wollen wir folgende Unterprogramme: 

Übertragen einer Variablen in den FAC. 

Übertragen des FAC in eine Variable. 

Addition einer Variablen mit dem FAC. 

Subtraktion des FAC von einer Variablen. 

Multiplikation einer Variablen mit dem FAC. 

Division einer Variablen durch den FAC. 

Potenzierung einer Variablen mit dem FAC. 

Alle Operationen laufen nun nach demselben Muster ab: 
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Beispiel: 


Variable 1 Operation Variable 2 nach Variable 3. 

Variable 2 wird in den FAC gebracht. 

Es wird die Operation mit Variable 1 aufgerufen. 

Der FAC wird zur Variablen 3 überspielt. 

Sehen wir uns an, was im einzelnen zu tun ist: 


1) ÜBERTRAGEN EINER VARIABLEN IN DEN FAC: 

Die Adresse der Variablen wird im Akkumulator und im 
Y-Register wie folgt gespeichert: Das Y-Register enthält den 
höherwertigen Teil der Adresse, der Akkumulator den 
niederwertigen. Dann wird ins Unterprogramm ab $BBA2 
gesprungen. 

Beispiel: Die Variable Benno soll in den FAC übertragen 
werden -. 

LDY #HB-Benno 
LDA #LB-Benno 
JSR $BBA2 

2) ÜBERTRAGEN DES FAC'S IN EINE VARIABLE: 

Hier wird die Zieladresse im X- und Y-Register angegeben, 
wobei im X-Register der niederwertige und im Y-Register der 
höherwertige Teil der Adresse gespeichert wird. Das 
Unterprogramm beginnt bei $BBD4. 
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Beispiel: Übertragen des FAC's in die Variable mit Namen 
Enno. 

LDX #LB-Enno 
LDY #HB-Enno 
JSR $BBD4 

3) ADDITON EINER VARIABLEN MIT DEM FAC. 

Dazu übergeben wir die Adresse der Variablen wieder im 
Akkumulator und dem Y-Register und springen ins 
Unterprogramm ab $B867. Dieses Unterprogramm überträgt nun 
erst die Variable in den Speicherbereich ARG und addiert 
dann ARG und FAC, wobei das Ergebnis im FAC abgelegt wird. 

Die folgenden Operationen funktionieren genau nach demselben 
Muster, nur ist die Adresse des jeweiligen Unterprogramms 
eine andere. 

Beispiel: Addition der Variablen mit dem Namen 'Gudrun' mit 
dem FAC. 


LDY #HB-Gudrun 
LDA #LB-Gudrun 
JSR $B867 

4) SUBTRAKTION DES FAC'S VON EINER VARIABLEN: 

Wie Punkt 3 mit der Adresse $B850. 


5) MULTIPLIKATION EINER VARIABLEN MIT DEM FAC: 


Wie Punkt 3 mit der Adresse $BA28. 
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6) DIVISION EINER VARIABLEN DURCH DEN FAC: 


Wie Punkt 3 mit der Adresse $BBOF. 


7) POTENZIERUNG EINER VARIABLEN MIT DEM FAC: 

Für diese Operation stellt uns das Betriebssystem nur die 
Routine ARG hoch FAC zur Verfügung, d.h. wir müssen die 
Variable noch selbst in den ARG bringen. Dies geschieht so, 
als wenn wir sie in den FAC bringen wollten, nur mit einem 
anderen Unterprogramm. 

Beispiel: Potenzierung der Variablen mit dem Namen 'Enno' 

mit dem FAC. 

'Enno' mit dem FAC. 


LDY 

#HB-Enno 



LDA 

#LB-Enno 



JSR 

; ENNO 

nach 

ARG 

JSR 

$BF7B 1 ARG 

hoch 

FAC 
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FUNKTIONEN: 


Bei der Berechnung der Funktionen gehen wir wie folgt vor: 

Wir bringen den Wert, die Variable in den FAC, springen in 
das Unterprogramm für die entsprechende Funktion und 
übertragen dann den FAC in die Variable. 

Als erstes eine Auflistung über die Funktionen und die 
Adressen der entsprechenden Unterprogramme. 


Funktion 

Adresse 

absolut 

$BC58 

actangens 

$E30E 

Cosinus 

$E264 

exponent 

$BFED 

integer 

$BCCC 

logarithmus 

$B9EA 

speicherwert 

$B80D 

Zufall 

$E097 

Vorzeichen 

$BC39 

sinus 

$E26B 

quadratwurzel 

$BF71 

tangens 

$E2B4 


Beispiel: Übertragung der Anweisung: 

'bilde absolut von ENNO nach BENNO.' 
in ein Assemblerprogramm. 

;Übertragen von enno in den FAC. 
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LDY 

#HB-ENN0 

LDA 

#LB-ENN0 

JSR 

$BBA2 


»•Aufruf der Funktion 'absolut' 
JSR $BC58 

»•Übertragen des FAC nach benno 
LDY #HB-BENNO 


LDX 

#LB-ENN0 

JSR 

$BBD4 

Ist das nicht 

eine recht elegante Art der Programmierung? 


305 


DATEN EIN- UND AUSGABE: 


Auch für die Daten Ein- und Ausgabe stellt uns der 
Interpreter bzw. das Betriebssystem Routinen zur Verfügung. 

Beginnen wir mit der Ausgabe: 

Die Fließkommazahlen liegen in der internen Form im Speicher 
vor. Wir müssen sie aus dieser Form in eine Form bestehend 
aus ASCII-Zahlen umwandeln, und erst dann werden sie für uns 
Menschen direkt lesbar. 

Die Umwandlungsroutine wirkt wieder auf den FAC, wohin wir 
unsere Fließkommazahl bringen müssen. Diese wird dann 
umgewandelt und in einen Speicherbereich geschrieben, der ab 
$0100 beginnt. Wir wollen diesen Bereich, den 
Ein-Ausgabepuffer oder abkürzend 'Puffer' nennen. Dieser 
Puffer faßt 12 Zeichen. Als letztes Zeichen der aktuellen 
Umwandlung schreibt die Routine eine binäre 0 in den Puffer. 
Wir wissen so immer genau, wie lang unsere Zeichenkette ist, 
die wir ausgeben wollen. Die Ausgabe können wir mit der 
schon erwähnten Routine durchführen, aber wir können uns 
selbst ein kleines Unterprogramm schreiben. Die erste Lösung 
ist klar, deshalb soll die zweite angegangen werden. Diese 
Routine ist als Unterprogramm zu schreiben, um sie von 
verschiedenen Stellen aus aufrufen zu können. 

1) Variableninhalt in den FAC bringen; 

LDA #LB-Name 
LDY #HB-Name 
JSR $BBA2 

JSR AUS ; Ausgaberoutine rufen. 
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2) Ausgaberoutine: 


AUS .Marke 
JSR $BDDD 
LDX #0 
AUSP .M 
LDA $0100,X 
BEQ AUSE 
JSR $FFD2 
INX 

BNE AUSP 
AUSE .M 
RTS 


FAC nach $0100 
X-Reg löschen 
Ausgabeschleife 
Akku mit Zeichen laden 
Akku =0 dann Ende 
Akku ausgeben 

X-Reg erhöhen für nächstes Zeichen 
zur Ausgabeschleife 
Schleifenende 
Job erledigt 


Ist es schwer, ein kleines Assemblerprogramm zu schreiben? 


Einige Erläuterungen: 


JSR $BDDD 
LDA $0100,X 
BEQ AUSE 

JSR $FFD2 

BNE AUSP 


wandelt den FAC in die entsprechende 
ASCII-Zeichenkette. 

läd jeweils das Zeichen in $0100+X 
in den Akkumulator. 

wird eine binäre Null in den Akku geladen, 
so wird das Zero-Bit gesetzt und nach AUSE 
gesprungen. 

Sonst springe in die Ausgaberoutine, die 
ein Zeichen ausgibt. (Zeichen im Akku) 
ist im ersten Moment nicht ganz einsichtig. 
Der BNE-Befehl ist intern kürzer als der 
JMP-Befehl ausführt. Da INX eine Zahl 
ungleich Null zum Ergebnis hat, wird das 
Zero-Bit bei INX auf Null gesetzt. Dies 
hat zur Folge, daß der Sprung ausgeführt 
wird. Erst wenn INX bewirkt, daß das 
X-Register von 255 nach Null wechselt. 
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wird das Zero-Bit gesetzt. Da aber nur 
höchstens 11 Zeichen vor einer binäre 
Null im Puffer stehen, tritt dieser 
Fall nie ein. 


DATEN-EINGABEN: 

Zur Dateneingabe schreiben wir uns wieder ein kleines 
Unterprogramm, welches wir immer dann aufrufen, wenn wir 
eine Eingabe starten wollen. 


Also: 


EIN .MARKE 


Auf dem Bildschirm soll bei einer Eingabe ein Fragezeichen 
erscheinen. Das Fragezeichen hat den ASCII-Wert von $3F. 

LDA #$3F 

JSR $FFD2 ; Ausgabe von " ? 

Die Eingabe wollen wir ab $0220 Zwischenspeichern. Dazu 
nehmen wir das X-Register als Index-Register. Die Eingabe 
eines Zeichens veranlassen wir durch Aufrufen der Routine ab 
$FFCF. Wurde als letzte Taste nicht die Return-Taste 
betätigt (ASCII-Wert $D), so fordern wir ein weiteres 
Zeichen an. 

LDX #0 
EIN1 .MARKE 
JSR $FFCF 
STA $220,X 
INX 

CMP #$D 
BNE EIN1 
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Wurde die Return-Taste betätigt, so lösen wir mit 
JSR $FFD2 

einen Vorschub aus, da das Return-Zeichen ausgegeben wird. 
Nun übergeben wir noch den Zeiger auf unserem 
Zwischenspeicher und die Länge des Eingabefeldes einer 
Routine, die die Eingabe in die interne Form umwandelt und 
im FAC ablegt. 

LDA #$02 
STA $23 
LDA #$20 
STA $22 
DEX 
TXA 

JSR $B7B5 
RTS 

Jetzt brauchen wir in unserem Programm jeweils nur folgende 
Zeilen zu schreiben. 

JSR EIN 
LDX #LB-Name 
LDY #HB-Name 
JSR $BBD4 

So erhält die Variable ihren Wert. 
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AUSGABE VON ZEILENNUMMERN: 


Zur Ausgabe von Zeilennummern bei eingeschalteter Spur 
benutzen wir die Routine des Interpreters, wenn er bei der 
Ausgabe 'break in ..." die Zeilennummer ausgibt. Die 
Zeilennummer wird in einen höherwertigen und einen 
niederwertigen Teil zerlegt. Dies zum Zeitpunkt, in dem wir 
das Assemblerprogramm schreiben (lassen). Die Übergabe 
erfolgt im X-Register und im Akkumulator. Das Unterprogramm 
beginnt bei $BDCD. 

Beispiel: Ausgabe der Zeilennummer 259 

LDX #3 
LDA #1 
JSR $BDCD 
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ENTSCHEIDUNGEN: 


Reißen wir doch das Problem einmal auf: 

Die Sprachkonstruktion, die wir umzusetzen haben, lautet: 


wenn A Operator B 
dann 

Blockl 

sonst 

Block2 

wende 

Ist die Bedingung A Operator B erfüllt, dann soll bis zum 
'sonst' weitergemacht werden. Ist die Bedingung nicht 
erfüllt, soll nach 'sonst' gesprungen werden. Sehen wir uns 
jetzt für die möglichen Bedingungen an, wie dies gemacht 
wird. Der Interpreter hat eine Routine, die zwei 
Fließkommazahlen miteinander vergleichen kann. Sie beginnt 
bei $BC5B. Die erste Fließkommazahl muß sich im FAC befinden 
und die Adresse der zweiten übergeben wir in bekannter Weise 
im Akkumulator und im Y-Register. Nach Ausführung des 
Unterprogrammes finden wir im Akkumulator die Information 
über das Ergebnis des Vergleichs: 


Akkumulator = 0 bedeutet, 

Akkumulator = 1 bedeutet, 

Akkumulator = 255 bedeutet. 


daß die Werte gleich sind, 
daß Variable 1 größer als 
Variable 2 ist. 
daß Variable 1 kleiner als 
Variable 2 ist. 
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Für die einzelnen Operatoren ergeben sich damit folgende 
Realisationen: 

Operator: = 

; 1) Übertragen von Variable 1 in den FAC 

LDA #LB-Variable1 
LDY #HB-Variable1 
JSR $BBA2 

; 2) Übergabe der Adresse von Variable 2 

LDA #LB-Variable2 
LDY #HB-Variable2 

; 3) Sprung in die Vergleichsroutine 
JSR $BC5B 

; 4) Auswerten des Ergebnissen für 

CMP #0 ; Vergleich Akku mit Null 

BNE SONST 

; Die folgenden Anweisungen des Programms 


JMP WENDE ; Block 1 ist ausgeführt 
SONST .MARKE ; Beginn von Block 2 

Anweisung des zweiten Blocks 

WENDE .MARKE ; Ende der Entscheidung 
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wir testen mit CMP #0 auf Gleichheit. Sind die Werte gleich, 
so darf nicht gesprungen werden. Darum springen wir bei 
Ungleichheit. Die prinzipielle Konstruktion bleibt immer die 
gleiche, Unterschiede tauchen nur bei Punkt 4 auf. Im 
folgenden werden nur diese aufgeschrieben. 


Operator:/= 

; 4) Auswerten des Ergebnisses für '. 

CMP #0 
BEQ SONST 

Getestet wird mit CMP #0 auf Gleichheit der Variablenwerte. 
Bei Ungleichheit wird weitergemacht und bei Gleichheit nach 
'SONST' gesprungen. 

Operator ; > 

; 4) Auswerten des Ergebnisses bei '>'. 

CMP #1 
BNE SONST 

Bei Variable 1 Variable 2 wird fortgeführt, sonst 
gesprungen. 


Operator : <= 

; 4) Auswerten des Ergebnisses bei '<='. 

CMP #1 
BEQ SONST 
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Bei <= muß das Gegenteil getan werden wie bei >. 


Operator : < 

; 4) Auswerten des Ergebnisses bei 

CMP #255 
BNE SONST 


Operator: >= 

! 4) Auswerten des Ergebnisses bei 

CMP #255 
BEQ SONST 


Wir wissen jetzt, wie eine einzelne Entscheidung realisiert 
wird. Sind Entscheidungen ineinander verschachtelt, so muß 
man sich bei der Wahl der Sprungmarken etwas einfallen 
lassen. Sehen Sie hierzu bitte im Kapitel 'Codegenerierung' 
nach. 
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SCHLEIFEN : 


Die umzusetzende Anweisung lautet: 

fuer Variabiel von Variable2 bis Variables wiederhole 

-- Block 

Sende. 

Was ist zu tun? 

Als erstes muß der Variableni der Startwert, der Wert der 
Variablen2, zugeordnet werden. Dann muß eine Sprungmarke 
gesetzt werden, die den Beginn der Schleife darstellt- Nun 
prüfen wir, ob der Wert der Variableni echt größer ist als 
der Wert der VariablenS. Ist er es, springen wir ans 
Schleifenende. Ist er dies nicht, so addieren wir zum Wert 
von Variabiel eine Eins und führen die Anweisungen des 
Blocks aus. Am Schleifenende springen wir zur Marke, die den 
Beginn der Schleife kennzeichnet. 

Beispiel: 

fuer Otto von Enno bis Benno wiederhole 


sende. 

Enno hat den Wert 1 und Benno den Wert 3. 

Nun geschieht folgendes*. 
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1) Otto erhält den Wert 1. 

2) Ist Otto schon größer als Benno? 

3) Neinl Also Otto = Otto + 1. 

4) Ausführen der Anweisungen. 

5) Sprung zum Test mit Otto = 2. 

6) Ist Otto größer als Benno? 

7) Neinl Also Otto = Otto + 1. 

8) Ausführen der Anweisungen. 

9) Sprung zum Test mit Otto = 3. 

10) Ist Otto größer als Benno? 

11) Nein! Also Otto = Otto + 1. 

12) Ausführen der Anweisungen. 

13) Sprung zum Test mit Otto = 4. 

14) Ja! Sprung zum Schleifenende 

Wenn Sie mitgezählt haben, werden die Anweisungen dreimal 
ausgeführt. 

Erzeugen wir doch für diese Schleife einmal das 
entsprechende Assemblerprogramm und sehen wir, wie wir das 
Betriebssystem nutzen können: 

1) Otto erhält den Wert von Enno: 

; Übertragen von Enno in den FAC 
LDY $HB-Enno 
LDA #LB-Enno 
JSR $BBA2 

; Übertragen des FAC nach Otto 
LDY #HB-0tto 
LDA #LB-0tto 
JSR $BBD4 

2) Setzen der Marke für den Schleifbeginn: 

SCHLEIFE .MARKE 
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3) Vergleich ob Otto echt größer Benno: 


; Übertragen von Otto in den FAC 
LDY #HB-Otto 
LDA #LB-Otto 
JSR $BBA2 

; Übergabe der Adresse von Benno für den Vergleich 
LDY #HB-Benno 
LDA #LB-Benno 
JSR $BC5B 

; Vergleich auf größer 
CMP #1 

BEQ SCHLEIFENENDE 
; Nein, dann weiter: 

; Addition von 1 zum FAC 
LDA #$E8 
LDY #$BF 
JSR $B867 

; Sichern des FAC nach Otto 
LDY #HB-Otto 
LDA #LB-Otto 
JSR $BBD4 

Hier folgen jetzt die Anweisungen vom Block 

: Schleifenende 

JMP SCHLEIFE ; zurück zum Anfang 
SCHLEIFENENDE ..MARKE ; Ende der Schleife 

Ein paar Erläuterungen: 

'CMP #1' und 'BEQ Marke' 

kennen Sie bereits aus dem letzten Abschnitt. Die 
Vergleichsroutine verändert nicht den FAC, deshalb können 
wir zum FAC direkt eine Eins addieren. Vor dem Vergleich 
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müßen wir den Wert von Otto in den FAC bringen, da wir nicht 
wissen, wie der FAC innerhalb der Schleife selbst verwendet 
wird . 

Ab der Adresse $BFE8 hat der Interpreter für eigene Zwecke 
eine Eins gespeichert. Diese benutzen wir zur Addition. 
Danach sichern wir den Wert im FAC nach Otto für die nächste 
'Schleifenrunde'. 

Haben wir mehrere Schleifen ineinander geschachtelt, so 
müssen wir die Namen der Marken wiederum mit System wählen. 
Dazu lesen Sie bitte im Kapitel 'Codegenerierung' nach. 

Schleifen mit Ausgang werden im Prinzip so behandelt wie 
Entscheidungen, auch hier wird auf das Kapitel 
'Codegenerierung' verwiesen. 


Was fehlt noch? 


Wie Zahlen in das interne Zahlenformat umgewandelt werden, 
finden Sie im Kapitel 'Codegenerierung'. 

Das Setzen der Bildschirmfarben geschieht auf denkbar 
einfache Art und Weise: 

Es müssen jeweils nur die den Farben entsprechenden Zahlen 
in speziellen Speicherstellen abgelegt werden, den Rest 
erledigt der Rechner. Die Tabellen hierfür stehen in Ihrem 
Handbuch. 


Eine abschließende Bemerkung: 
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Zum Betriebssystem und zum Interpreter ließe sich noch 
vieles sagen und mühelos ein Buch solchen Umfangs füllen, 
wie Sie es vorliegen haben. 

Die Ihnen gegebenen Informationen mögen Ihnen dienen, dieses 
Buch zu verstehen und Ihnen den Mund 'wässerig' zu machen, 
eine eigene Entdeckungsreise im ROM-Listing zu Ihrem Rechner 
zu unternehmen. Sie werden mit Sicherheit auf viele 
interessante Möglichkeiten stoßen, die Sie dann in Ihrer 
eigenen Sprache verwirklichen können. 
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WE MACHEN MIR UNSERE PROGRAMME KLEINER? 


Wir haben in diesem Buch Programme entwickelt, die den 
Speicher unseres Rechners zu einem großen Teil mit 
Programmtext belegen, so daß für Erweiterungen nicht mehr 
allzuviel Platz vorhanden ist. 

Wenn Sie einen Basic-Übersetzer haben, so können Sie die 
Programme durch eine Übersetzung kleiner machen, 
vorausgesetzt Ihr Übersetzer schafft das. 

Haben Sie keinen Übersetzer, so können Sie die Programme von 
Hand verkleinern, aber das ist sehr mühsam und anstrengend. 
Ich habe deshalb in derr Zeitschrift 'Data Welt' Ausgabe 
4/84 eine Lösung vorgeschlagen, die ich noch einmal 
vorstelle. 


Wer hat sich nicht schon einmal gewünscht, daß sich per 
'Knopfdruck' ein Basic-Programm so klein und so schnell 
macht, wie es moeglich wäre? Spätestens, wenn man mit seinen 
Programmen an die Grenze des zur Verfügung stehenden 
Speicherplatzes gelangt, fängt man an zu überlegen, wie 
Platz gespart werden könnte! 

Als Erstes werden dann die Kommentarzeilen gelöscht, von 
denen man glaubt, daß sie überflüssig seien. Aber dieses 
Vorgehen rächt sich schon nach kurzer Zeit, wenn man eine 
Stelle im Programm sucht, die verändert werden soll. Das 
Entfernen aller überflüssigen Leerzeichen mutet bei längeren 
Programmen schon in eine 'Sysiphusarbeit' aus. Das 
Zusammenfügen von mehreren Zeilen zu einer einzigen 
gestattet der Editor auch nur bis zu einer Länge von achtzig 
Zeichen, obwohl im Handbuch steht, daß unser 
Commodore - Rechner in der Lage ist, Zeilen von einer Länge 
bis zu 256 Zeichen zu verarbeiten! Eine höchst überflüssige 
Bemerkung, wie man zuerst glaubt. Ein neues Durchnummerieren 
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von Zeilen mit kürzeren Zeilennummern ziehen ohnehin nur 
Besitzer einer entsprechenden Programmierhilfe in Betracht. 
Führt man alle diese Maßnahmen einmal an einem kleinen 
Beispielprogramm durch, so wird man feststellen, daß man 
zwar einiges an Platz und Ausführungszeit sparen kann, aber 
die Programme werden sehr unübersichtlich und sind für 
Verbesserungen fast nicht mehr zugänglich. Zudem ist diese 
Arbeit sehr zeitintensiv und verlangt Konzentration, da man 
z.B. eine Zeile erst an die vorherige 'hängen' darf, wenn 
man sicher ist, daß sie nicht Ziel eines Sprunges ist. 

Nun haben wir uns aber keinen Computer gekauft, um 
stundenlang dazusitzen und Leerzeichen aus Programmen zu 
entfernen. Überlassen wir ihm doch diese stupide Arbeit 1 Bei 
der Gelegenheit kann er dann auch gleich die anderen 
Maßnahmen, die oben ausgeführt sind, in Anwendung bringen! 
Mit dem Programm 'Basic - Compressor' ist Ihr Computer nun 
in der Lage, Ihre Programme bis zu 55% kürzer und bis zu 40% 
schneller zu machen. Das natürlich in Abhängigkeit vom 
jeweiligen Programmierstil. Meine eigenen Programme werden 
im Durchschnitt etwa 45% kürzer und 35% schneller. Und das 
ich nicht allzu Üppig mit dem Speicherplatz umgehe, sehen 
Sie ja an dem folgenden Listing des Basic - Compressors. 

Handhabung des Programms 

Um allen Eventualitäten vorzubeugen, schalten Sie bitte 
Ihren Rechner aus und wieder ein. Danach laden Sie das 
Programm, welches Sie verdichten wollen. Anschließend geben 
Sie bitte folgende zwei Zeilen im Direktmodus ein; 

POKE 43,(PEEK(45)+256*PEEK(46)-2)AND255 
POKE 44,(PEEK(45)+256*PEEK(46)-2) / 256 

Damit verlegen Sie den Anfang des Basic - Programmbereichs 
an das Ende Ihres zu verdichtenden Programms. Nun laden Sie 
den Basic - Compressor und starten ihn mit RUN. Der 
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Basic - Compressor ist nun das Programm, welches Sie 
ausführen. 

Er fragt Sie als Erstes, wieviel Bytes Länge die Zeilen des 
verdichteten Programms haben dürfen. Beachten Sie bitte, daß 
hier die interne Zeilenlänge gemeint ist. Zeilen in der 

Darstellung auf dem Bildschirm sind in der Regel länger als 
die interne Darstellung, da Schlüsselwörter ( wie z.B. GOSUB 
) als ein Zeichen gespeichert werden. Der LIST - Befehl kann 
aber nur Zeilen bearbeiten, die höchstens 256 Zeichen 
Bildschirmformat haben. Ihr Rechner kann also Zeilen 

ausführen, die länger sind, als er listen kann! 

Der Rechner macht Ihnen auf jede Frage einen Vorschlag, den 
Sie durch Überschreiben ändern können. Eingaben beenden Sie 
durch Drücken der RETURN - Taste. 

Dann fragt er nach der Nummer der ersten Zeile, die das 
verdichtete Programm haben soll, anschließend nach dem 
Abstand der Nummern der Nummerierung. 

Als Letztes möchte der Rechner wissen, wieviele Zeilen das 
zu verdichtende Programm ungefähr hat. Geben Sie eine zu 
große Zahl an, so kann es bei knappem Speicherplatz 

geschehen, daß ein 'OUT OF MEMORY' Fehler erscheint. 

Erhalten Sie eine 'BAD SUBSCRIPT' Fehlermeldung, so haben 
Sie eine zu kleine Zahl angegeben. 

Das Programm arbeitet sich dreimal durch Ihr Programm, und 
gibt Ihnen die Nummer der jeweils bearbeiteten Zeile aus. 
Nachdem der Basic - Compressor seine Arbeit verrichtet hat, 
steht nur noch Ihr verdichtetes Programm im Speicher. Seien 
Sie aber bitte nicht traurig, wenn Sie es kaum 
wiedererkennen 1 

Wie testen Sie den Basic - Compressor? 

Na, ganz einfach mit sich selbst! 

Laden Sie den Basic - Compressor, geben Sie die beiden 
Zeilen ein und laden den Basic - Compressor noch einmal. 
Nach dem Starten mit RUN erwidern Sie alle Fragen mit einem 
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RETURN. Nach dem Programmende speichern Sie den verdichteten 
Basic - Compressor ab. Schalten Sie zur Vorsicht den Rechner 
aus und wieder ein. Dann laden Sie den Original 
Basic - Compressor, geben die beiden Zeilen ein und laden 
den verdichteten Basic - Compressor. Sie starten ihn und 
erwidern wieder alle Fragen mit einem RETURN. Nachdem das 
Programm seine Arbeit verrichtet hat, machen Sie mit Hilfe 
des VERIFY - Befehls einen Test, ob das Programm im Speicher 
mit dem abgespeicherten verdichteten Basic - Compressor 
übereinstimmt. Wenn ja, so haben Sie keinen Fehler beim 
Abtippen und bei der Handhabung gemacht. Bevor Sie den 
Basic - Compressor ausprobieren, sollten Sie auf jeden Fall 
eine Sicherungskopie machen, da das Programm sich selbst 
zerstört, falls es einwandfrei durchläuft! 

Studieren Sie in Ruhe den Basic - Compressor und die 
verdichtete Version. Sie werden dann sicher schnell die 
einzelnen Möglichkeiten des Programms erkennen. Nutzen Sie 
die Möglichkeit, gut dokumentierte Programme zu schreiben, 
die Sie ohne Mühe während der verdienten Kaffeepause 
verdichten lassen. 

Hinweis: 

Beachten Sie beim Abtippen den Hinweis betreffend der 
Cursor-SteuerZeichen. 
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53000 

53010 

53030 

53050 

53070 

53000 

53090 

53100 

53110 

53120 

53130 

53140 

53150 

53160 

54010 

54020 

54021 

54022 

54023 

54024 

54025 

54027 

54028 
54030 
54040 
54045 
54050 
54055 
54060 
54070 
54000 
54090 
54100 
54110 
54120 
54130 


rem 


aBBBBBBBBaBBBBBBBenBB 

rem 

a 

basic 

- compressor 

B 

rem 

a 

von 

Volker saBse 

B 

rem 

sa 

f uer 

vc20 Z< cbm64 

« 

rem 

ne 

basic 

Version 2.0 

„ 

rem 

aaaaaaaaneaneneonnane.neaa.aaoeniBaaBi 

B 

rem 

ans 

BBBBBBB 

BBBBBBBBBBBBBBBBBBBB 

rem 

B 

hinvgeis ! 

a 

rem 

CS 

# 

= Cursor—links 

B 

rem 

B 

& 

« cursor-runter 

B 

rem 

B 


B clr 


rem 

BB 

SSBBBBB 

BBBBBBBaBBaBBaBaBB 

aa 


B 


print" 'basic - compresBor" 
print'‘8<?»<8< maximale zei 1 enlaenge" 
input" 60####"jzm 

print"8< erste zei lennummer" 

input" 10 ####" 5 Ba 

prlnt"8< abatand der zei 1 ennummern" 

input" 10####"!ab 

print"8< anzahl der zeilen" 

input" 300#####"sa9 

d i m a < a9) , m7. < a9) , VB (a9) 

1«4608 


if peek(64787)=56 and peek(64780)«48 then 1=2040 
h=peek(44)*256+peek(43)BZ«l“linl=l 
prinf'durchgang 1 zeile b "| 
z«z+l s if z>h then 54175 
t=peek(z) 

if t»34 then gosub 57500 
If t=32 then poke z,7 i goto 54060 
if t=139 then goBub 57300 a goto 54060 

if t=167 then goBub 56200 s goto 54060 

if t=137 then goaub 56400 s goto 54060 

if t«141 then goBub 56400 i goto 54060 


324 


54140 i-f t»0 then z=z+3 i gosub 57700 s goto 54060 
54150 If t^Se then gosub 57650 o goto 54060 
54160 if t«143 then gosub 57600 8 goto 54060 
54170 goto 54060 

54175 rem BasanaBsaBsaasasasnaaEs durchgang 1 ende 

54176 my.<l)=l 

54177 gosub 57100 

5417B rem i»=saaaaaaaaaaa durchgang 2 ende 

54100 for t“l to vo s zn=»vs<t) s gosub 57000 s next 

54200 tl»l 

54210 for t»l to zl 

54220 if my.<t)«l then a<tl)=a<t) b tl«tl + l 
54230 next 

54235 for t«tl to zl i a(t)=0 b next 
54240 zl=»tl-l 

54300 z®l-l B pz“l-l B z4“l 

54305 print 8 print" 8 < durchgang 3 zeile b "j 
54310 2 ®z+l s if z>h then 54400 
54320 t«peek<z> 

54340 if t«7 then 54310 

54345 if t»34 then gosub 58000 B if t«34 then 54310 

54350 if t=167 then pz=pz+l 8 poke pz,1678gosub561008goto54310 

54360 if t«137 then pz=pz+l 8 poke pz,137 b gosub55800Bgoto54310 

54370 if t=141 then pz^pz+l 8 poke pz,141 8 gosubSSSOOBgoto54310 

54380 if t«»0 then gosub 56600 8 goto 54310 

54390 pz=“pz + l a poke pz,t 8 goto 54310 

54400 pz“p 2 -l 8 poke pz-2,0Bpoke pz-1,0 

54410 h«int(pz/256) s i»pz-int(pz/256)*256 

54412 poke 828,i b poke 029,h 

54413 rem as»B=«oB»BsaaaaB durchgang 3 ende 

54414 poke 1,0 

54415 pr i nt 8 pr i nt " 5 z-pz j "bytes weniger!" 

54420 poke 43,1 3 poke 44,18 8 if 1»2O40 then poke 44,0 
54430 poke 45,peek(020) 8 poke46,peek(829) 8 clr 8 end 

55398 8 

55400 rem B=a==aaaaaaaB komma weitere zeilennmmern 
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55401 8 

55410 2 “z+l 8 t“peek< 2 ) 

55420 if t«7 then 55410 

55430 if t“44 then pz^pz+1 b poke pz,44 b goto 55410 
55440 if t>47 and t<5B then goaub 55600 8 goto 55400 
55450 z“z~l 8 return 
55598 8 

55600 rem ««oBaaaBananamaBamnn zeilennummer erkennen und eraetzen 
55602 8 

55610 2 »z-l 8 zn$="" 

55620 z«z+l 

55622 if peek<z>>47andpeek(z><5BthengoBub55700igoto55620 
55630 zn»val<zn$> 8 z^z-l 

55640 for tl“l to zl s if a<tl)<zn then next 
55650 rem tl neuc ZBÜennummer 

55660 2 n$“Btr$(<t1-1)*ab+sa) 

55670 for tl«2 to len(zn$) 

55672 pz*«pz + l 8 poke pz , aac (mi d$ <zn$, 11,1) ) 

55674 next 

55680 return 

55681 8 

55700 zn$«zn$+chr#(peek(z)) b return 
55702 8 

55800 rem BaaBamamBaBatanattasns z bI 1 ennummern nach goto / goaub 
55802 8 

55810 z“z+l 8 t“peek<z) 

55820 if t«7 then 55810 

55830 if t>47andt<5Bthengoaub556008goBub55400ireturn 

55840 z« 2 -l 8 return 

55841 8 

56000 rem satnaaBawnaBaBOBCBssHsa zeilennummer then/goto/goaub aperren 

56001 8 

56010 z^z-l 8 zn$“"" 

56020 z«z+l 

56022 if peek(z>>47andpeBk(z><58thengoaub55700Bgoto56020 
56030 2 n“val <zn.>) 
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56040 if 2 n<=a(zl) then go®ub 57000 ! goto 56055 
56050 vo«vo+l 8 VB(vo>“2n 
56055 z» 2 ~l 

56060 return 

56061 8 

56100 rem aaasBzamaaaaa zellennummer nach then 
56102 8 

56110 z«z + l 8 t'=peek<z) 

56120 if t»7 then 56110 

56130 if t=137 then pz=pz+l8poke pz,1378gosub550OO8return 
56140 if t«141 then pz^pz+l8poke pz,1418go«ub550OO8return 
56150 if t>47 and t<50 then gosub 55600 8 return 

56160 z=z--l 3 return 

56161 3 

56200 rem saassaBBansnaBanaaBaass zeilennummer nach then 
56202 3 

56210 z^z + 1 8 t*=peek(z> 

56220 if t«32 then poke z,7 8 goto 56210 

56230 if t«137 then gosub 56400 8 return 

56235 if t“141 then gosub 56400 s return 

56240 if t>47 and t<50 then gosub 56000 8 return 

56250 z®z-l 8 return 

56252 8 

56400 rem zeilennummer nach goto / gosub 

56402 8 

56410 z®z+l 8 t»peek<z> 

56420 if t“32 then poke z,7 8 goto 56410 

56430 if t>47andt<50thengosub56OOO8goBub560OO8return 

56440 2«Z"1 8 return 

56599 8 

56600 rem =aaae=BB=a=m= kann zeile aufgeloest werden? 
56610 rem sasssaamaaaaaaai aondem der zeilennummer 
56620 zn»peek(z+3)+peek<z+4>*256 

56622 print spc <0--len (strtSf (zn) ) ) str-4P <zn) p 
56625 if z«=h-l then 56650 
56630 if a(z4)»zn then 56650 
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56640 pz«pz + l s poke pz,5Q b z»z-«-4 i return 
56650 pz«“pz + l 8 poke pz,0 
56655 poke nl ,pz + l-int ( (pz + 1)/256) ^«•256 
56657 poke n1+1,int((pz+1>/256) 

56660 nl“pz + l : z5=» <z4-l) *ab+sa 

56665 poke pz+3,z5-int<z5/256)*256 : poke pz+4,int<z5/256) 

56670 pz«'pz+4 B z4“z4+l 8 z“z+4 8 return 

56671 8 

56000 rem BB8BOBiBsnaxBa«Ba«B komma weitere zei 1 ennummern 
56802 8 

56010 z“z+l : t»peek<z) 

56020 If t»32 then poke z,7 b goto 56010 
56830 i-f t«44 then 56810 

56840 if t>47 and t<50 then goBub560008gosub573008goto56800 
56050 z«z-l 8 return 
56052 8 

57000 rem ai«»nam=Bcj««saosa ZH ln aO suchen und in mV-< > sperren 

57001 3 

57010 -for z4“l to zl b i-f a(z4)<zn then nent 
57020 m7.<z4>«l 
57030 return 
57032 8 

57100 rem nsBazsassrnasacEnaacana zcilenlaengB -festlegen 
57102 8 

57105 prints print"8< durchgang 2 zeile b "j 
57110 z«l-l 1 t»0 
57120 z“z+l 8 q«peek(z) 

57130 if q«0 then 57160 
57140 if q<>7 then zc»zc+l 
57150 goto 57120 

57160 t“t+l 8 if zz+zc>zm then m'/.<t“l)®l b zz“zc b zc«0 

57163 zn«peek<z+3)+peek(z+4)*256 

57165 print spc <8-1 en (str^: <zn> >) str* <zn) j 

57170 if m7. (t)“l then zz“0 a zc“0 b goto 57200 

57180 zz“zz+zc 

57190 zc»0 
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57200 if 2 «h-l then return 

57201 z«z+4 B goto 57120 

57202 I 

57300 r©m bei i-f / on naechste zeile «perren 

57302 1 

57310 my.(zl + l)«l I return 
57312 I 

57500 rem •cmmaiuatamssmxssim ßtrlngs ueberlBOBH 
57520 B 

57530 z=z + l B t»peek(z) i if t<>34 and tOO then 57530 
57540 return 
57560 B 

57600 rem mmammmsimamam kommcntarzBi 1 on loeechen 
57602 3 

57605 if peek(z-l )*50 then poke z-1,7 Bpoke z,7 b goto 57620 

57606 if peek<z-l)«7 and peek<z-2)«58 then poke z-2,7 
spoke z,7 c goto 57620 

57610 zl“zl~l B for z3«z-5 to z b poke z3,7 b next 
57620 z“z+l 8 if peek(2)<>0 then poke z,7 8 goto 57620 
57630 z«z+3 a gosub 57700 a return 
57632 8 

57650 rem 8aBBsnisaB5=3aiaea«aa doppelpunktz©i 1 ©n loBschen 
57652 s 

57655 if peek<z-5)*0 and peek(z+l)»0 then 57660 
57657 return 

57660 zl«zl-l 8 for z3“z-5 to z i poke z3,7 a next 

57670 z«z+4 8 goBub 57700 b return 

57671 B 

57700 rem ««sscsBiBBaascxsoiBB zei 1 ennummern abspeiehern 
57720 8 

57730 zl“zl+l 8 a<z1>“peek<z)+peek(z+1>*256 
57735 print spe (B-1 en (str-Xa <zl) ) > ) str^ <a (z 1) ) j 
57740 z«z+l B return 

58000 rem®““*«““““““ zeichenketten uebertragen 
58010 pz“pz+l B poke pz,34 
58020 z“z+l 8 t“peek<z> 
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58030 t»0 or 

58040 pz^pz+1 : 


t®34 then pz“pz+l i poke p2,34 
poke pz,t I goto 58020 


return 
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Hier als Beispisl der verdichtete Compreseor 


1 print" basic - compressor" 

Sprint" maximale zei1enlaenge" 

sinput" 60"jzmiprint" erste zei1ennummer" 

sinput" 10 " 5 sasprint" abstand der 

zeilennummern"sinput" 10"jabsprint" anzahl 

der Zeilen" 

2 input" 300" n a9s dima (a9) ,m7. (a9) ,vs (a9) 81“46O0 

3ifpeek(64787)=56andpeek(6478B)«4Bthenl»2048 

3 h=peek(44)*256+peek(43)sz«l-linl»l 
sprint"durchgang 1 zeile i "j 

4 z»z+ljifz>hthenl5 

5 t»peek(z)8ift“34thengoBub77 

6 i-f t»32thenpokez , 78 goto4 

7 ift=139thengosub768goto4 

8 ift“167thengoBub498goto4 

9 ift»137thengoBub548goto4 

10 ift«141thengoBub548goto4 

11 ift«Othenz»z+38goBub07igoto4 

12 i f t'=58thengoBub848 goto4 

13 ift»143thengosub798goto4 

14 goto4 

15 m'/. (1) «18 gosLib678 f ort«ltovos zn“vs (t) b gosub658 next 811»1 
ifort«ltozl 8 ifm'/. (t)“lthBna(tl)»a(t) 8tl»tl + l 

16 next8 fort=tItoz18 a(t)“Os next 8 zl“tl-lBZ»l-lBpz“l-laz4»l 
3print8print"durchgang 3 zeile 8 "j 

17 z“z+lBifz>hthen25 

18 t“peek(z)8ift»7then17 

19 i-ft“34thengoBubB08 if t“34thenl7 

20 ift“167thenpz“pz + l8pokepz, 1678gosub44 8gotol7 

21 ift“137thenpz“pz + l8 pokepz, 137 8 goBub368 gotol7 

22 1ft“141thenpz“pz + l8 pokepz,141 b gosub368 goto17 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

30 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


1 f t=»0thengosub57i gotol7 
pzBspz + l 1 pokepz , 18 goto 17 

pz“pz-lB pokepz-2,Os pokepz-1,0s h“int(pz/256) 

8i«pz~int(pz/256)*2568poke020,i8poke829,h8pokel,08print 
Sprint" " j z-pz j "byte® vgonlger ! " 8 pokB43,18 pok©44,18 
8if1®2048thenpoke44,8 

poke45,peek(028) 8 poke46,peek(829)s clr8 end 

z“z + l8 t“peek(z) b ift«7th©n27 

i f t«44th©npz«'pz + l s pokepz , 448 goto27 

i -f t >47andt<58thengosub318 goto27 

z=z-l8 return 

z«z~l8zn$«"" 

z“z + l 8 i -f peek (z ) >47andpeek (z ) <58thengosub358 goto32 

zn^val (zn#)8Z“Z“l8fortl'«ltozl8ifa(tl) <znthenne><t 

zn$»Btr$ ( (tl-l) *ab+Ba) 8 -f ort l«2tol en (zn$) s pz«*pz + l 

8pokepz,aBc(mid$(zn^,t1,1))8next b return 

zn$:“zn<:+chr# (peek (z )) 8 return 

z=»z + l 8 t“peek (z ) 8 i f t«7then36 

i -f t >47andt<58thengosub318 goBub278 return 

z“z~l8 return 

z«z~l8 zn$“"" 

z«z + l8 if peek(z)>47andpeek(z)<58thongoBub35B goto40 
zn^val (zn’4f) s i f zn<»a (z 1 ) thengosub658 goto43 

VO«VO+l8 VB(vo)“zn 

z»z-l8 return 

z»z + l 8 t«peek (z ) 81 -f t“7then44 

ift«137thenpz»pz + l b pokepz, 1378 goBub368 return 
ift“141thenpz“pz + l8 pokepz,1418 goBub368 return 
i-ft>47andt<50thengoBub318 return 
z“z-l8 return 

z«z + l8 t«peek(z)8ift“32thenpokez,78 goto49 
ift“137thengoBub548 return 
ift«l41thengoBub548 return 
ift>47andt<50thengosub39s return 
Z“Z“18 return 

z“z + l8 t«peek(z) b ift“32thenpokBZ,78 goto54 
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55 i -f t >47andt<5Bthengo»ub39i gosub61 1 return 

56 z« 2 -l 8 return 

57 zn«peek <z+3) -fpeek (z+4> *256 1 printspc <8-1 en (®tr$ <zn) > ) 

®tr.> (zn) I a i f z“h--lthen60 

58 i-f a <z4) «znthen60 

59 pz»pz + l 8 pokepz,58 b z«z+ 48 return 

60 pz=pz + l6 pokepz,0s pokenl,pz + l-int((pz + 1)/256)*256 

8 pokenl + 1, int ( (pz-f 1) /256) b nl“p 2 + l s zS* <z4-l) *ab+Ba 
ipokepz+3,z5-int(z5/256)*2568pokepz+4,int(z5/256) 

1 pz"pz+48 z4“z4+l8 z*2+48 return 

61 z “2 + l8 t«peek( 2 ) 1 ift“32thenpoke2,78 goto61 

62 ift“44then61 

63 t>47andt<58thengoBub398 goBub768 goto61 
^4 z“z~l 8 return 

65 -forz4“ltoz 18 i-f a <z4><znthenne><t 

66 m7. <z4) «18 return 

67 print 8 print"durchgang 2 zeile s "|8z«l“lBt“0 

68 z«z + l 8 q=peek (z ) 8 i-f q=0then71 

69 ifq<>7thenzc=zc+l 

70 goto 68 

71 t«t + l 8 i-f zz+zc> 2 mthenm 7 . (t-l)«l8zz=>zc8zc=0 

72 zn=*peek (z+3) +peek (z+4) *2568 printspc (8-1 en (atrif (zn) ) > 
Btr’4f(2n) 9 8 if mV. (t) «lthenzz«08 zc“08 goto74 

73 ZZ“ZZ+2C 8 ZC=aO 

74 1f 2 «h-lthenreturn 

75 z“z+ 43 goto 68 

76 m7. (z 1+ 1) “18 return 

77 z“z + l8 t«peek(z)8ift< >34andt< >0then77 

78 return 

79 i -f peek (z-1) «58thenpokez-l ,78 pokez ,78 goto82 

80 ifpeek(z-l)=7andpeek(z-2)=Sathenpokez-2,78 pokez,78 gotoB2 

81 zl«zl-l 8 -f orz3“z-5toz 8 pokez 3,7 8 next 
02 2 “z + l 8 i -f peek (z )< >0thenpokez ,78 gotoB2 
03 2 «z+ 38goBub878return 

84 ifpeek(z-5)»Oandpeek(z+1)=0then86 

85 return 
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86 2 l«zl-l 8 f orz3»z-Stoz s pokezS,?# newt s z'02+48 goBüb87B return 

87 zl«zl + l:a<zl> «peek (z ) +peek (z-fl) *2568 print 

spc <8-1 en (str|: <a (z 1) ) ) ) ®tr.* <a(2l>>p8Z“z-Hl8 return 

88 pz«pz+l:pokepz,34 

89 z=z + l 8 t“peek <z ) b i -f t«0ort«34thenpz“pz + l a pokepz , 34 b return 

90 pz«pz+l8pokepz,t8gotoB9 
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Es soll Ihnen hier einige Literatur empfohlen werden, die 
Sie zur Vertiefung in das Thema 'Compiler' benutzen können. 

Daß die meiste Literatur in Englisch ist, liegt an der Sache 
selbst. 

Einen Teil der Literatur bekommen Sie in Buchhandlungen, den 
anderen können Sie in Bibliotheken von Universitäten 
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8) Leventhal, Lance A. und Saville, Winthorp 
6502 Assembly Language Subroutines 

1982 Berkeley 

9) Mayer, Otto 
Syntaxanalyse 
1978 Zürich 

10) Peterson, James I. 

Computer Organisation and assembly language programming 
1978 New York 

11) Tremblay, Jean-Paul and Sorenson, Paul G. 

An Implementation Guide to Compiler Writing 
1982 Mc Graw Hill 

12) Raeto West 
Programming the Pet/CBM 
1982 London 

13) Waite, William M. and Goos, Gerhard 
Compiler Construction 

1984 New York 
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Spickzettel 
ade. 

Ein neues DATA BECKER BUCH, 
das den Einsatz des COMMO- 
DORE 64 in der Schule ent¬ 
scheidend mitprägen dürfte, 
wurde von Professor Voß 
geschrieben. Besonders für 
Schüler der Mittel-und Ober¬ 
stufe geschrieben, enthält ÜL» 
das Buch viele interessante 
Probiemlösungs- und Lernprogramme, die beson¬ 
ders ausführlich und leicht verständlich beschrie¬ 
ben sind. Sie ermöglichen ein intensives und anre¬ 
gendes Lernen, unter anderem mit folgenden The¬ 
men-. Satz des Pythagoras, quadratische Gleichun¬ 
gen, geometrische Reihen, Pendelbewegungen, 
mechanische Hebel, Molekülbildung, exponentiel¬ 
les Wachstum, Vokabeln lernen, unregelmäßlgeVer- 
ben, Zinseszinsrechnung. Ein kurzer überblick über 
die Grundlagen der EDV, eine knappewiederholung 
der wichtigsten BASIC-Elemente und eine Einfüh¬ 
rung in die Grundzüge der Problemanalyse vervoll¬ 
ständigen das Ganze. Mit diesem Buch machen die 
Hausaufgaben wieder Spaß! 

DAS SCHULBUCH ZUM COMMODORE 64,1984, Über 300 
Seiten, DM 49,- 



Tempo! 

MASCHINENSPRACHE FÜR 
FORTGESCHRITTENE ist be¬ 
reits das zweite Buch von 
Lothar Englisch zum Thema 
Maschinenprogrammierung 
mit dem COMMODORE 64. 

Hier wird von der Problem- 
analyse bis zum Maschinen¬ 
sprachealgorithmus in die 
Grundlagen der professio¬ 
nellen Maschinensprache¬ 
programmierung eingeführt, ln diesem Buch fin¬ 
den Sie unter anderem folgende Themen behan¬ 
delt: Problemlösungen In Maschinensprache, Pro¬ 
grammierung von Interruptroutinen, interrupt¬ 
quellen beim COMMODORE 64, Interrupts durch 
ciAs und Videocontroller, Programmierung der 
Ein-Ausgabe-Bausteine, die ciAs des COMMODORE 
64, Timer, Echtzeituhr, parallele und serielle Ein/ 
Ausgabe, BASIC-Erweiterungen, Programmierung 
eigener BASIC-Befehle und. -Funktionen, Möglich¬ 
keiten zur Einbindung ins Betriebssystem sowie 
viele weitere Tips & TTicks zur Maschinenprogram¬ 
mierung. Dieses Buch sollte jeder haben, der wirk¬ 
lich intensiv mit der Maschinensprache des COM¬ 
MODORE 64 arbeiten will. 

MASCHINENSPRACHE FÜR FORTGESCHRITTENE, 1984, 
ca. 200 Seiten, DM 39,- 



Macht Druck. 

DAS GROSSE DRUCKERBUCH 
für Drucker-Anwender mit 
COMMODORE-Computern ist 
endlich dal Es enthält eine 
riesige Sammlung von Tips 
& TTicks, Programmlistings 
und Hardwareinformatio¬ 
nen. Rolf Brückmann und 
Klaus Gerits beschäftigen 
sich mit Sekundäradressen, 

Anschluß einer Schreib¬ 
maschine am Userport, Druckerschnittstellen (Cen¬ 
tronics, V 24, lEC-Bus), hochauflösender Grafik, Text- 
und Grafikhardcopy, Grafik mit Standardzeichen¬ 
satz, formatierter Datenausgabe, Plakatschrift, 
Textverarbeitung und vieles mehr. Zusätzlich wird 
das Betriebssystem des MPS801 zerlegt, mit Prozes¬ 
sorbeschreibung (8035), Blockschaltbild und einem 
ausführlich kommentierten ROM-Listing. Thomas 
Wiens schrieb den Teil über die Programmierung 
des PlottersvC-1520: Handhabung des Plotters, Pro¬ 
grammierung von Sonderzeichen, Funktionendar¬ 
stellung, Kuchen und Säulendiagramme, Entwurf 
dreidimensionaler Gegenstände. Natürlich wieder 
viele interessante Listings. unentbehrlich für 
jeden, der einen COMMODORE 64 oder vc-20 und 
einen Drucker besitzt. 

DAS GROSSE DRUCKERBUCH, 1984, Über 300 Seiten, 
DM 49,- 



Tausend¬ 
sassa. 

Fast alles, was man mit dem 
COMMODORE 64 machen 
kann, ist in diesem Buch aus¬ 
führlich beschrieben. Es ist 
nicht nur spannend zu lesen 
wie ein Roman, sondern ent¬ 
hält neben nützlichen Pro¬ 
grammlistings vor allem 
viele, viele Anwendungs¬ 
möglichkeiten des C64. Dabei wurde besonderer 
Wert darauf gelegt, daß das Buch auch für Laien 
leicht verständlich ist. Eine Auswahl aus der The¬ 
menvielfalt: Gedichte vom Computer, Einladung 
zur Party, Diplomarbeit - professionell gestaltet, 
Individuelle Werbebriefe, Autokosten im Griff, Bau¬ 
kostenberechnung, Taschenrechner, Rezeptkartei, 
Lagerliste, persönliches Gesundheitsarchiv, Diät¬ 
plan elektronisch, intelligentes Wörterbuch, kleine 
Notenschule, CAD für Handarbeit, Routenoptimie¬ 
rung, Schaufensterwerbung, strategiespiele. Teil¬ 
weise sind Programmlistings fertig zum Eintippen 
enthalten, soweit sich die .Rezepte' auf i - 2 Seiten 
realisieren ließen, wenn Sie bisher nicht Immer 
wußten, was Sie mit Ihrem 64er alles anfangen soll¬ 
ten. nach dem Lesen des IDEENBUCHES wissen Sie's 
bestimmt! 

DAS IDEENBUCH ZUM COMMODORE 64,1984, Über 200 
seiten, DM 29.- 



































Prof. 64. 

Ein faszinierendes Buch, um 
in die Welt der Wissenschaft 
einzusteigen, hat Rainer 
Severin geschrieben, zu¬ 
nächst werden variablen- 
typen, Rechengenauigkeit 
und nützliche POKE-Adres- 
sen des COMMODORE 64 
bezüglich den Anforderun¬ 
gen wissenschaftlicher Pro¬ 
bleme analysiert. Verschie¬ 
dene Sortieralgorithmen wie Bubble, Quick und 
Shell-Sort werden miteinander verglichen. Die Pro¬ 
grammbeispiele aus der Mathematik nehmen 
dabei eine zentrale Stelle im Buch ein: Nullstellen 
nach Newton, numerische Ableitung mit dem Dif¬ 
ferenzenquotienten, lineare und nichtlineare 
Regression, Chi-Quadrat-Verteilung und Anpas¬ 
sungstest, Fourieranalyse und -Synthese, Skalar-, 
Vektor- und Spatprodukt, ein Programmpaket zur 
Matrizenrechnung für Inversion, Eigenwerte und 
vieles weitere mehr. Programme aus der Chemie 
(Periodensystem), Physik. Biologie (Schadstoffe in 
Gewässern - Erfassung der Meßwerte), Astronomie 
(Planetenpositionen) und Technik (Berechnung 
komplexer Netzwerke, Platinenlayout am Bild¬ 
schirm) und viele weitere Softwarelistings zeigen 
die riesigen Möglichkeiten auf, die der Computer in 
Wissenschaft und Technik hat. 

COMMODORE 64 FÜR TECHNIK UND WISSENSCHAFT, 
1984, Über 200 seiten, DM 49,- 



Grundkurs. 

Das neue BASlC-TTainings- 
buch zum c-64 Ist eine aus¬ 
führliche, didaktisch gut 
geschriebene Einführung in 
das CBM BASIC V2. Alle 
Befehle werden ausführlich 
erläutert. Dieses Buch geht 
aber über eine reine Befehls¬ 
beschreibung hinaus. es wird 
einefundierte Einführung in 
die Programmierung gege¬ 
ben. von der Problemanalyse bis zum fertigen 
Algorithmus lernt man das Entwerfen eines Pro¬ 
grammes und den Entwurf von Datenflußplänen. 
ASCii-Code und verschiedene Zahlensysteme wie 
hexadezimal, binär und dezimal sind nach der Lek¬ 
türe des Buches keine Fremdworte mehr. Die Pro¬ 
grammierung von schleifen. Sprüngen, bedingten 
Sprüngen lernt man leicht durch .learning by 
doing“. So enthält das TTainingsbuch viele Auf¬ 
gaben, Übungen und unzählige Beispiele. Den 
Schluß des Buches bildet eine Einführung ins pro¬ 
fessionelle Programmieren, in der es um mehr¬ 
dimensionale Felder, Menuesteuerung und Unter¬ 
programmtechnik geht. Endlich ein Buch, das 
Ihnen wirklich hilft, solide und sicher BASIC zu ler¬ 
nen. 

BASIC TRAININGSBUCH ZUM COMMODORE 64, 1984, 
ca. 250 seiten, DM 39,- 
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sang und Klang! 

Der COMMODORE 64 ist ein 
Musikgenie. DAS MUSIKBUCH 
hilft Ihnen, die riesigen 
Klangmöglichkeiten des C 64 
zu nutzen. DieThemenbreite 
reicht von einer Einführung 
in die Computermusik über 
die Erklärung der Hardware¬ 
grundlagen descOMMODORE 
64 und die Programmierung 
in BASIC bis hin zur fort¬ 
geschrittenen Musikpro¬ 
grammierung in Maschinensprache. Einiges aus 
dem Inhalt: Soundregister des COMMODORE 64, 
Gate-Signal, Programmierung der “ADSR'-Werte, 
Synchronisation und Ring-Modulation, Counter¬ 
prinzip. lineare und nichtlineare Musikprogram¬ 
mierung, Frequenzmodulation, Interrupts fn der 
Musikprogrammierung und vieles mehr, zahl¬ 
reiche Beisplelprogramme, komplette Songs und 
nützliche Routinen ergänzen den Text. Geschrie¬ 
ben wurde das Buch von Thomas Dachsei, dem 
Autor der weltbekannten Musikprogramme Syn- 
thimat und Synthesound. Erschließen Sie sich die 
Welt des Sounds und der Computermusik mit dem 
Musikbuch zum C-64! 

DAS MUSIKBUCH ZUM COMMODORE 64, Über 200 Sel¬ 
ten, DM 39,- 


Nützlich. 

Das TTainingsbuch zu MULTI¬ 
PLAN bietet eine gute Einfüh¬ 
rung in die Grundlagen der 
Tabellenkalkulation. Dabei 
wird großer Wert auf ein 
möglichst schnelles Einarbei¬ 
ten in die wichtigsten 
Befehle gelegt, so daß man 
bald sicher mit MULTIPLAN 
arbeiten kann, ob nun auf 
dem COMMODORE 64 Oder 
einem anderen Rechner. Am 
Ende wird man in der Lage sein, den umfangrei¬ 
chen Befehlssatz von multiplan auch kommerziell 
zu nutzen. Übungen am Ende jedes Kapitels sorgen 
dafür, daß man das Gelernte lange behält. Grund¬ 
lage des Buches sind viele Seminare, die der Autor 
zu MULTIPLAN konzipiert und erfolgreich durch¬ 
geführt hat. 

DAS TRAININGSBUCH ZU MULTIPLAN, 1984, ca. 250 Sei¬ 
ten, DM 49,- 



Für Tüftler. 

Ein hochinteressantes Buch 
für Hobbyelektroniker hat 
Rolf Brückmann vorgelegt. 

Er Ist ein engagierter Techni¬ 
ker, für den der Computer 
Hobby und Beruf zur giei- 
chen Zeit ist. Vor allem aber 
kennt er den C-64 In- und aus¬ 
wendig. So werden einfüh¬ 
rend die Schnittstellen des 
COMMODORE 64 detailliert 
beschrieben und kurz die 
Funktionsweise der ClAs 6526 erläutert. Hauptteil 
des Buches sind die Beschreibungen der vielfälti¬ 
gen Einsatzmöglichkeiten des COMMODORE 64. Die 
vielen Schaltungen, von Rolf Brückmann alleselbst 




































entwickelt, sind jeweils umfangreich dokumen¬ 
tiert und lelchtverständllch erklärt. Die Reihe der 
hier ausführlich behandelten Anwendungen mit 
dem COMMODORE 64 Ist äußerst umfangreich: 
Motorsteuerung, Stoppuhr mit Llchtscbranke, 
Lichtorgel, A/D-Wandler, Spannungsmessung,Tem- 
peraturmessung und vieles mehr. Dazu kommen 
noch eine Reihe kompletter Schaltungen zum Sei¬ 
berbauen, wie ein EPROM Programmiergerät für 
den c-64, eine EPROM-Karte, ein Frequenzzähler 
und Spracheln/ausgabe (!). Zusätzlich sind Jeweils 
Schaltplan, Softwarelisting und zu einigen Schal¬ 
tungen sogar zusätzlich Platinenlayouts vorhan¬ 
den. 

DER COMMODORE 64 UND DER REST DER WELT, 1984, 
ca. 220 selten, DM 49,- 


computerkünstler. 

Das Craflkbuch zum COMMODORE 64 Buch aus der 
Bestseller-Serie von DATA BECKER stammt aus der 
Feder von Axel Plenge. Es geht weit über die reine 
Hardware-Beschreibung der 
Craflkelgenschaften desC-64 
hinaus. Der Inhalt reicht von 
den Grundlagen der Grafik¬ 
programmierung bis zum 
Computer Aided Design. Es 
ist ein Buch für alle, die mit 
Ihrem C-64 kreativ tätig sein 
wollen.Themen sind z. B.: zel- 
chensatzprogrammlerung, 
bewegte Sprites, High-Re- 
solutlon, Multicolor-Graflk, 
LIghtpenanwendungen, Be¬ 
triebsarten des VIC, Verschie¬ 
ben der Bildschirmspeicher, 

IRQ-Handhabung, 3-Dlmenslonale Grafik, Projektio¬ 
nen. Kurven-, Balken- und Kuchendiagramme. Lauf¬ 
schriften, Animation, bewegte Bilder, viele Pro- 
grammllstlngs und Beispiele sind selbstverständ¬ 
lich. Das COMMODORE-BASIC V2 unterstützt die her¬ 
ausragenden Grafikeigenschaften des C-64 be¬ 
kanntlich kaum. Hier helfen die vielen Beispielpro¬ 
gramme In diesem Buch weiter, die die faszinie¬ 
rende Welt der Computergrafik jedermann zu¬ 
gänglich machen. Kompetent Ist der Autor dazu wie 
kaum ein anderer, schließlich hat er das äußerst lei¬ 
stungsfähige Programm SUPERGRAFIK geschrieben. 

DAS GRAFIKBUCH ZUM COMMODORE 64,1984,295 Sel¬ 
ten. DM 39.- 


Vielfalt. 

Auf dem neuesten Stand Ist 
VC-20 TIPS & TRICKS von Dirk 
Paullssen gebracht worden, 
der über hundert Selten 
hinzufügte. Bisher schon 
enthalten waren Informatio¬ 
nen über Speicheraufbau 
des VC-20 und die Erwelte- 
rungsmögllchkelten, ein Gra- 
flkkapltel über program¬ 
mierbare Zeichen, Lauf¬ 
schrift und die Supererwei¬ 
terung. Stark erweitert wurde der Abschnitt über 
POKEs und andere nützliche Routinen. Ob es um die 
Programmierung der Funktionstasten, Pro¬ 
gramme die sich selber starten, .Maus'-SImulatlon 
mit dem Joystick oder die Änderung von Speicher¬ 
bereichen geht, man Ist Immer wieder über die 
Fülle der Möglichkeiten erstaunt. Der Clou dieses 


Buches sind aber die vielen Programmllstings. Die 
BASIC-Erwelterungen allein stellen schon ein erst¬ 
klassiges Toolkit dar: APPEND (Anhängen von Pro¬ 
grammen, AUTO (automatische zellennummerle- 
rung), BASIC-Befehle auf Tastendruck, PRINT POSI¬ 
TION, UNNEW, Strings größer als 88 Zeichen elnlesen 
und vieles mehr. Die Bandbreite reicht von Spielen 
wie Goldgräber oder Starshooter bis zu nützlichen 
Programmen wie cassettenlnhaltsverzeichnls und 
-katalog mit automatischem Suchen nach Dateien 
und einem Terminkalender. Für den VC-20 Anwen¬ 
der Ist dieser 324 Selten-Wälzer eine wahre Fund¬ 
grube, In der es Immer etwas neues zu entdecken 
gibt. 

VC-20 TIPS & TRICKS, 3. erweiterte und überarbeitete 
Auflage, 1984, 324 selten, DM 49,- 

Interessant. 

Einen guten Einstieg In PAS¬ 
CAL bietet dieses iralnlngs- 
buch. Es gibt eine leichtver¬ 
ständliche Einführung, 
sowohl ln UCSD-PASCAL Wie 
auch In PASCAL64, woli^i 
allerdings EDV-und bask:- 
Grundkenntnisse voraus¬ 
gesetzt werden. Der Autor. 

Ottmar Korbmacher, Ist Stu¬ 
dent der Mathematik. Ihm 
gelingt es. In einem sprach¬ 
lich aufgelockerten Stil mit vielen interessanten 
Beispielprogrammen, dem Leser Programmstruk¬ 
turen, Ein/Ausgabe, Arithmetik und Funktionen, 
Prozeduren und Rekursionen, Sets, Files und 
Records näherzubringen. Die Übungsaufgaben am 
Ende jeden Kapitels helfen dabei, das Gelernte zu 
vertiefen. Ein Anhang mit allen PASCAL-Schlüssel- 
worten, der ansich schon ein umfangreiches Lexi¬ 
kon darstellt, macht das Buch für jeden pascal- 
Anwender Interessant. 

DAS TRAININGSBUCH ZU PASCAL, 1984, ca. 250 Selten,- 
DM 39,- 


Bewährt. 

Die bereits dritte Auflage 
von VC-20 INTERN Ist Wieder 
erheblich erweitert worden. 

Das Buch beschäftigt sich 
ausführlich mit der Technik 
und dem Betriebssystem des 
VC-20. Dazu gehört natürlich 
zuerst einmal ein ausführlich 
dokumentiertes ROM-LlstIng. 

Dazu gehört auch die Bele¬ 
gung der Zeropage, dem 
wichtigsten Speicherbe¬ 
reich für den 6502-Prozessor, eine übersichtliche 
Auflistung der Adressen aller Betrlebssystemroutl- 
nen, ihrer Bedeutung und Ihrer Obergabeparame¬ 
ter. Dies ermöglicht dem Programmierer endlich, 
den VC-20 von Maschinensprache aus sinnvoll ein¬ 
zusetzen. Denn warum Routinen, die bereits vor¬ 
handen sind, noch einmal schreiben? weiterer 
Inhalt: Einführung In die Maschinensprache - 
Maschinensprachemonitor, Assembler, Disassem¬ 
bler - Verbindung von Maschinensprache- und 
BASIC-Programmen - Beschreibung der wichtigen 
ics des VC-20 - Blockschaltbild - drei original COM- 
MODORE-Schaltpläne. Das Buch braucht jeder der 
sich Intensiv mit der Maschinenspracheprogram¬ 
mierung des VC-20 auseinandersetzen möchte. 

VC-20 INTERN, 3. Auflage, 1984, ca. 230 selten, DM 49,- 
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Starthilfe! 

Das sollte Ihr erstes Buch zum 
COMMODORE 64 sein: 64 FÜR 
EINSTEICER ist eine sehr 
leicht verständliche Einfüh¬ 
rung in Handhabung, Ein¬ 
satz, Ausbaumöglichkeiten 
und Programmierung des 
COMMODORE 64, die keinerlei 
Vorkenntnisse voraussetzt 
Sie reicht vom Anschluß des 
Geräts über die Erklärung 
der einzelnen Tasten und 
Funktionen sowie die Peripheriegeräte und ihre 
Bedienung bis zum ersten Befehl. Schritt für 
Schritt führt das Buch Sie in die Programmier¬ 
sprache BASIC ein, wobei Sie nach und nach eine 
komplette Adressen Verwaltung erstellen, die Sie 
anschließend nutzen können.Zahlreiche Abbildun¬ 
gen und Bildschirmfotos ergänzen den Text. Viele 
Anwendungsbeisplele geben nützliche Anregun¬ 
gen zum sinnvollen Einsatz des COMMODORE 64. Das 
Buch ist sowohl als Einführung als auch als Orientie¬ 
rung vor dem 64er Kauf gut geeignet 

64 FÜR EINSTEICER, 1984, ca. 200 Selten, DM 29.- 

von A bis z. 


So etwas haben Sie gesucht Umfassendes Nach¬ 
schlagewerk zum COMMODORE 64 und seiner Pro¬ 
grammierung. Allgemeines Computerlexikon mit 
Fachwissen von A-Z und 
Fachwörterbuch mit Über¬ 
setzungen wichtiger engli¬ 
scher Fachbegriffe - das 
DATA BECKER LEXIKON ZUM 
COMMODORE 64 Stellt prak¬ 
tisch drei Bücher in einem 
dar. Es enthält eine unglaub¬ 
liche Vielfalt an Informatio¬ 
nen und dient so zugleich als 
kompetentes Nachschlage¬ 
werk und als unentbehr¬ 
liches Arbeitsmittel. Viele 
Abbildungen und Beispiele ergänzen den Text. Ein 
Muß für jeden COMMODORE 64 Anwender! 

DAS DATA BECKER LEXIKON ZUM COMMODORE 64, 
1984, 354 seiten, DM 49,- 

Fundgrube. 

64 Tips & Tricks ist eine hoch¬ 
interessante Sammlung von 
Anregungen zur fortge¬ 
schrittenen Programmie¬ 
rung des COMMODORE 64, 

POKE's und andere nütz¬ 
liche Routinen, Interessan¬ 
ten Programmen sowie 
interessanten Programmier¬ 
tips & -tricks. Aus dem Inhalt; 
3D-GraphikinBASlC-Farbige 
Balkengraphik - Definition 
eines eigenen Zeichensatzes - Tastaturbelegung 
und ihre Änderung - Dateneingabe mit Komfort - 
Simulation der Maus mit einem Joystick - BASIC für 
Fortgeschrittene - C-64 spricht deutsch - CP/M auf 
dem COMMODORE 64 - Druckeranschluß über den 
USER-Port - Datenübertragung von und zu ande¬ 
ren Rechnern - Expansion-Port - Synthesizer in Ste¬ 
reo - Retten einer nicht ordnungsgemäß geschlos¬ 
senen Datei - Erzeugen einer BASIC-Zeile in BASIC - 
Kassettenpuffer als Datenspeicher - Sortieren von 
Stringfelder - Multitasking auf dem COMMODORE 
64 - POKE’S und die Zeropage - GOTO, COSUB und 
RESTORE mit berechneten Zeilennummern, INSTR 
und STRINC-Funktion - Repeat-Funktion für alle 




Tasten - und vieles andere mehr. Alle Maschinen¬ 
programme mit BASIC-Ladeprogrammen. 64 Tips & 
Tricks ist eine echte Fundgrube für jeden COMMO¬ 
DORE 64 Anwender. Schon über65000mal verkauft! 

64 TIPS & TRICKS, 1984, Über 300 Selten, DM 49,- 

Know-how! 


350 Seiten dick ist die 4. 
erweiterte und überarbei¬ 
tete Auflage von 64 INTERN 
geworden. Das bereits über 
65000mal verkaufte Stan¬ 
dardwerk bietet jetzt noch 
mehr Informationen. Hinzu¬ 
gekommen ist ein Kapitel 
über den lEC-Bus und viele, 
viele Ergänzungen, die sich 
im Laufe der zeit angesam¬ 
melt haben. Ebenfalls über¬ 
arbeitet und noch ausführlicher ist jetzt die Doku¬ 
mentation des ROM-Listings. Weitere Themen; 
genaue Beschreibung des Sound- und Video-Con¬ 
trollers mit vielen Hinweisen zur Programmierung 
von Sound und Grafik, der Eln/Ausgabesteuerung 
(CIAS), BASIC-Erweiterungen (RENEW, HARDCOPY. 
PRINTUSING), Hinweise zur Maschinenprogrammie¬ 
rung wie Nutzung der E/A-Routinen des Betriebs¬ 
systems, Programmierung der Schnittstelle RS 232, 
ein Vergleich VC20 - C-64 - CBM zur Umsetzung von 
Programmen. Dies und viele weitere Informatio¬ 
nen machen das umfangreiche Werk zu einem 
unentbehrlichen Arbeitsmittel für jeden, der sich 
ernsthaft mit Betriebssystem und Technik des C-64 
auseinandersetzen will, zum professionellen 
Gehalt des Buches tragen auch zwei Original-COM- 
MODORE-Schaltpläne zum Ausklappen und zahl¬ 
reiche ausführlich beschriebene und dokumen¬ 
tierte Fotos, Schaltbilder und Blockdiagramme bei. 

64 INTERN, 4. überarbeitete und erweiterte Auf läge, 
1984, ca. 350 Seiten, DM 69,- 
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Erfolgreich. 

64 für Profis zeigt, wie man 
erfolgreich Anwendungs¬ 
probleme in BASIC löst und 
verrät die Erfolgsgeheim¬ 
nisse der Programmier¬ 
profis. Vom Programment¬ 
wurf über Menüsteuerung, 

Maskenaufbau, Parametri¬ 
sierung, Datenzugriff und 
Druckausgabe bis hin zur 
guten Dokumentation wird 
anschaulich mit vielen Bei¬ 
spielen dargestellt wie Profi-Programmierung vor 
sich geht. Besonders stolz sind wir auf die völlig 
neuartige Datenzugriffsmethode QUISAM, die in 
diesem Buch zum ersten Mal vorgestellt wird. 
QUISAM erlaubt eine beliebige Datensatzlänge, die 
dynamisch mit der Eingabe der Daten wächst. Eine 
lauffertige Literaturstellenverwaltung veran¬ 
schaulicht dieArbeitswelse von QUISAM. Neben die¬ 
sem Programm finden Sie noch weitere Pro¬ 
gramme zur Lager- und Adressenverwaltung,Text¬ 
verarbeitung und einen Reportgenerator. Alle 
diese Programme sind mit Variablenliste versehen 
und ausführlich beschrieben. Damit sind diese für 
Ihre Erweiterungen offen und können von ihnen 
an Ihre persönlichen Bedürfnisse angepaßt wer¬ 
den. Steigen Sie in die Welt der programmlerprof is 
ein. 


64 FÜR PROFIS, 2. Auflage, 1984, ca. 3CX) selten, 
DM 49,- 


















































Rundum gut! 

Endlich ein Buch, das ihnen 
ausführlich und verständlich 
die Arbeit mit der Floppy VC- 
1541 erklärt. Das große 
Floppybuch ist für Anfänger. 

Fortgeschrittene und Profis 
gleichermaßen. Interessant 
Sein Inhalt reicht von der 
Programmspeicherung bis 
zum DOS-Zugriff, von der 
sequentiellen Datenspeiche¬ 
rung bis zum Direktzugriff, 
von der technischen Beschreibung bis zum aus¬ 
führlich dokumentierten DOS-ListIng, von den 
Systembefehlen bis zur detaillierten Beschreibung 
der Programme auf derlest-Demo-Diskette. Exakt 
beschriebene Beispiel- und Hilfsprogramme ergän¬ 
zen dieses neue superbuch. Aus dem Inhalt Spei¬ 
chern von Programmen - Floppy-Systembefehle - 
Sequentielle Datenspeicherung - relative Daten¬ 
speicherung - Fehlermeldungen und Ihre Ursa¬ 
chen - Direktzugriff - DOS-Listing der vc-1541 - 
BASIC-Erweiterungen und Programme - overlay- 
technik - Diskmonitor - lEC-Bus und serieller Bus - 
Vergleich mit den großen CBM-Floppies. Ein Muß für 
jeden Floppy-Anwenderl Bereits über 45.000mal 
verkauft 

DAS CROSSE FLOPPY-BUCH. 2. Überarbeitete Auf läge, 
1984, ca. 320 Seiten. DM 49,- 
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Spundprogramme (Fourier 64. Akustograph, Funk¬ 
tionsplotter) und mathematische Programme 
(Kurvendiskussion, Dreieck) sowie Utilities (SORT, 
RENUMBER, DISK INIT, MENUE) bis hin ZU kompletten 
Anwendungsprogrammen wie .Videothek“, .File 
Manager und einer komfortablen Haushaltsbuch¬ 
führung, in der fast professionell gebucht wird. Der 
Hit zu jedem Programm sind aktuelle Program¬ 
miertips und Tricks der einzelnen Autoren zum Sel¬ 
bermachen. Also nicht nür abtippen, sondern auch 
dabei lernen und wichtige Anregungen für die 
eigene Programmierung sammeln. 

DATA BECKER S CROSSE 64er PROCRAMMSAMMLUNC, 
1984, 250 Selten, DM 49,- 





BASIC-PLUS. 

SIMON S BASIC ist ein Hit - 
wenn man es richtig nutzen 
kann. Auf über 300 Seiten 
erklärt ihnen das DATA 
BECKER Trainingsbuch detail¬ 
liert den Umgang mit den 
über 100 Befehlen des 
SIMONS BASIC. Alle Befehle 
werden ausführlich dar¬ 
gestellt, auch die, die nicht 
im Handbuch stehen! Natür¬ 
lich zeigen wir auch die 
Macken des SiMON’s BASIC und geben wichtige Hin¬ 
weise wie man diese umgeht. Natürlich enthält das 
Buch viele Beispielprogramme und viele Inter¬ 
essante Programmiertricks. Weiterer Inhalt: Ein¬ 
führung In das CBM-BASIC 2.0 - Programmierhilfen 

- Fehlerbehandlung - Programmschutz - Pro¬ 
grammstruktur -variablen - Zahlenbehandlung - 
EIngabekontrolle-Eln/AusgabePerlpheriebefehle 

- Craphik - Zeichensatzerstellung - Sprites - Musik 
-SIMON S BASIC und dieverträglichkeit mitanderen 
Erweiterungen und Programmen. Dazu ein um¬ 
fangreicher Anhang. Nach jedem Kapitel finden Sie 
Testaufgaben zum optimalen Selbststudium und 
zur Lernerfolgskontrolle. 

DAS TRAININCSBUCH ZUM SIMONS BASIC, 2. Über¬ 
arbeitete Auflage, 1984, ca. 380 selten, dm 49.- 
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Schrittmacher. 

Eine leicht verständliche Ein¬ 
führung in die Maschinen¬ 
spracheprogrammierung 
für alle, denen das C-64 BASIC 
nicht mehr ausreicht. Sie 
lernen Aufbau und Arbeits¬ 
weise des 6510-Mikroprozes- 
sors kennen und anwenden. 

Dabei werden die Analogien 
zu BASIC Ihnen beim Verständnis helfen. Ein weite¬ 
res Kapitel beschäftigt sich mit der Eingabe von 
Maschinenprogrammen. Dort erfahren sie auch 
alles über Monitor-Programme sowie über Assem¬ 
bler. zum einfachen und komfortablen Erstellen 
Ihrer eigenen Maschinensprache enthält das Buch 
einen kompletten ASSEMBLER, damit Sie gleich von 
Anfang an komfortabel und effektiv programmie¬ 
ren können, weiterhin finden Sie dort einen DIS¬ 
ASSEMBLER, mit dem Sie sich ihre Maschinenpro¬ 
gramme oder die Routinen des BASIC-Interpreters 
und des BASIC-Betrlebssystems ansehen können. 
Ein besonderer Clou ist ein in BASIC geschriebener 
ElnzelschrlttsImulator, mit dem sie ihre Pro¬ 
gramme schrittweise ausführen können. Dabei 
werden Sie nach jedem Schritt über Register¬ 
inhalte und Flags Informiert und können den logi¬ 
schen Ablauf Ihres Programmes verfolgen. Eine 
unschätzbare Hilfe, besonders für den Anfänger. 
Als Beispielprogramm finden Sie ausführlich 
beschriebene Routinen zur Crafikprogrammie- 
rung und für BASic-Erweiterungen. Natürlich sind 
alle Beispiele und Programme auf den c-64 zuge¬ 
schnitten. 

DAS MASCHINENSPRACHEBUCH ZUM COMMODORE64, 
ca. 200 Selten, DM 39.- 










































SYNTHIMAT 

SYNTHIMAT verwandelt ihren COMMODORE 64 In 
einen professionellen, polyphonen, dreistimmi¬ 
gen Synthesizer, der in seinen unglaublich vie¬ 
len Möglichkeiten großen Systemen kaum 
nachsteht. 

SYNTHIMAT In StIchworten: 

drei Oszillatoren (VCOs) mit 7 Fußlagen und 8 
Wellenformen - drei Hüllkurvengeneratoren 
(ADSRs) - ein Filter (VCF) mit 8 Betriebsarten und 
Resonanzregulierung - VCF mit Eingang für 
externe Signalquelle - ein Verstärker (VCA) - 
Ringmodulation mit allen drei VCOs - 8 soft¬ 
waremäßig realisierte Oszillatoren (LFOs) - kräf¬ 
tiger Klang durch polyphones Spielen - zwei 
Manuale (Solo und Begleitung) - speichern von 
bis zu 256 Klangregistern - schneller Register¬ 
wechsel - speichern von 9 Registerdateien auf 
Diskette - .Bandaufnahme“ auf Diskette durch 
direktes Spielen - keine lästige Noteneingabe - 
speichern von bis zu 9 .Bandaufnahmen" je Dis¬ 
kette - integrierte 24 Stunden-Echtzeituhr - 
einstellbares pitch-bendinc - farblich gekenn¬ 
zeichnete, übersichtlich angeordnete Module - 
umfangreiches Handbuch - läuft mit einem Dis¬ 
kettenlaufwerk - Diskettenprogramm. 

DM 99,- 









STRUKTO 64 

STRUKTO 64 ist eine fantastische neue Program¬ 
miersprache für strukturiertes Programmieren 
mit dem C-64 und für alle Programmierer geeignet, 
die den C-64 als Allround-Computer einsetzen und 
auf einfache Weise anspruchsvolle Programme 
erstellen wollen. 

STRUKTO 64 In Stichworten: 

Interpretersprache, die dievorzüge von BASIC und 
PASCAL vereint - strukturiertes Programmieren - 
übersichtliche Programme - leichte Erlernbarkeit 
-einfache Bedienung-eingebautesToolkit erleich¬ 
tert das Eingeben und verbessern von Program¬ 
men - leichteres Arbeiten mit der Floppy - Sprite- 
Editor ermöglicht das Einlesen der Sprite-Formen 
direkt vom Bildschirm - Graphikbedienung wird 
mit gut durchdachten Befehlen unterstützt - 
Absplelen von Musik ist unabhängig vom Pro¬ 
grammablauf möglich - ca. 80 neue Befehle - liefer¬ 
bar als Diskettenprogramm - ausführliches deut¬ 
sches Handbuch. 



Für viele ein Traum, für die meisten bisher zu 
teuer: die Rede ist von einer echten Datenbank 
für den 64er. SUPERBASE 64 füllt eine Lücke. 
Nicht allein die Kapazität, die verwaltet werden 
kann, bewegt sich In professionellen Regionen, 
die ausgeprägten Fähigkeiten des SUPERBASE 
64 im Rechnen und Kalkulieren lassen dieses 
Paket beinahe als Rund-Um-Software erschei¬ 
nen. 

SUPERBASE 64 in Stichworten: 

maximale Datensatzlänge 1108 Zeichen, verteilt 
auf bis zu 4 Bildschirmseiten - bis zu 127 Felder 
pro Datensatz, wobei Textfelder bis zu 255 Zei¬ 
chen lang sein können - insgesamt 15 Einzel¬ 
dateien können zu einerSUPERBASE-Datenbank 
verknüpft werden - Speicherkapazität nur 
durch Diskette begrenzt - umfangreiche Aus¬ 
wertungsmöglichkeiten und komfortabler 
Report-Generator - Kalkulatlonsmöglichkeiten 
und Rechnen - Import- (Einlesen von externen 
Daten) und Export- (Ausgabe von superbase 
D atalen als sequentielle Datei) Funktionen 
ermöglichen Datenaustausch mit anderen Pro¬ 
grammen - durch leistungsfähige, eigene 
Datenbanksprache auch als kompletter An¬ 
wendungsgenerator verwendbar. 

DM 398,- 



MASTER 64 

MASTER 64 Ist ein professionelles Programm- 
entwlcklungssystem für den C-64, das es ihnen 
ermöglicht, die Programmentwicklungszeit 
auf einen Bruchteil der sonst üblichen Zeit zu 
reduzieren. MASTER 64 bietet einen Programm¬ 
komfort, den Sie nutzen sollten. 

MASTER 64 In Stichworten: 

70 zusätzliche Befehle - Bildschirmmasken¬ 
generator - definieren von Bildschirmzonen - 
Eingabe aus Zonen - formatierte Ausgabe - 
Abspeicherung von Bildschirminhalten - Arbei¬ 
ten mit mehreren Bildschirmmasken - ISAM 
Dateiverwaltung, In der Datensätze über einen 
zugriffschlüssel angesprochen werden können 
- Datensätze biszu 254 Zeichen - schlüssellänge 
bis zu 30 Zeichen - Dateigröße nur von Disket¬ 
tenkapazität abhängig - Zugriff über Schlüssel 
und Auswahlmasken - Bildschirm- und Druck¬ 
maskengenerator - Erstellung beliebiger For¬ 
mulare und Ausgabemasken - BASIC-Erweite- 
rungen -Toolkitfunktlonen - Mehrfachgenaue 
Arithmetik (Rechnen mit 22 Stellen Genauig¬ 
keit). 


DM 99,- 


DM 198,- 




TEXTOMAT 

Das Bearbeiten vonTexten gehört zum wichtig¬ 
sten Betätigungsfeld von Homecomputer-An¬ 
wendern. So ist es auch nicht verwunderlich, 
daß eine Unzahl verschiedenerTextprogramme 
für den 64er angeboten wird. TEXTOMAT zeich¬ 
net sich dadurch aus, daß er auch vom Einstei¬ 
ger sofort benutzt werden kann. Ober eine 
Menuezeile können alle Funktionen angewählt 
werden. Selbstverständlich beherrscht TEXTO¬ 
MAT deutsche Umlaute und Sonderzeichen. 



TEXTOMAT In Stichworten: 

Diskettenprogramm - durchgehend menue- 
gesteüert - deutscher Zeichensatz auch auf 
COMMODORE-Druckern Rechenfunktionen für 
alle Grundrechenarten-24.000 Zeichen pro Text 
Im Speicher - beliebig lange Texte durch Ver¬ 
knüpfung - horizontales Scrolling für 80 Zei¬ 
chen pro Zeile - läuft mit 1 oder 2 Floppies - f rei 
programmierbare Steuerzeichen - Formular¬ 
steuerung für Randeinstellung u.s.w. - kom¬ 
plette Bausteinverarbeitung - Blockoperatio¬ 
nen, Suchen und Ersetzen - Serienbriefschrei¬ 
bung mit DATAMAT - formatierte Ausgabe auf 
Bildschirm - an fast jeden Drucker anpaßbar - 
ausführliches deutsches Handbuch mit 
Übungslektionen. 



PAINT PIC 


Malen (!) mit dem Computer, welch eine faszinie¬ 
rende Idee. Mit dem Malprogramm PAINT Pic für 
den COMMODORE 64 Wird diese Idee Realität. Mit 
PAINT PIC ist es auch für den Einsteiger leicht, fanta¬ 
stische Computerbilderzu erstellen. Man kann die 
Bilder auf Diskette abspeichern und wieder laden 
und selbstverständlich steht auch weiterhin der 
COMMODORE-Zeichensatz zur Verfügung. Wichtig: 
PAINT PIC benötigt keine zusätzliche Hardware. 

PAINT PIC ln Stichworten: 

Programmsteuerung: Tastatur - Steuerung des 
Stifts: Cursortasten und eckige Klammer (diag.) 
(Joystick kann benutzt werden) - Routinen: Linien, 
Rechtecke, Dreiecke, Parallelogramme, Kreise, 
Kreisbögen, Ellipsen, Bestimmung von Mittelpunkt, 
und perspektivischer Linie, Kopieren und Drehen 
von Teilbildern, Verdoppeln, halbieren und spiel- 
geln von Teilbildern - Modi: Malstiftmodus 
(schmale Linie) Pinselmodus (8 verschiedene Brei¬ 
ten) (Art der Linie selbst definierbar) - Textmodus 
(kompl. Zeichensatz COMMODORE) (Hoch-Tief- 
schrlft) - Speichern: Teilbilder (Blöcke) oder ganze 
Bilder- Menue: 1 Hauptmenue mit 8 Untermenues 
- mit ausführlichem deutschen Handbuch - Disket¬ 
tenprogramm - Bilder kann man auf Diskette 
abspeichern. 



PROFIMAT 

Wer sich tiefer in die Innereien des Computers 
begeben will, kommt ohne besonderes Werk¬ 
zeug nicht aus. Einerseits muß der volle Einblick 
in alle Speicherbereiche möglich sein, anderer¬ 
seits soll der Umgang mit Maschinenprogram¬ 
men so komfortabel wie möglich gestaltet sein. 
PROFIMAT hat Lösungen für beide Probleme: 
Der Maschinensprache-Monitor profi-mon bie¬ 
tet alle Hilfsmittel zum Umgang mit Maschinen¬ 
programmen; PROFI-ASS ist ein Macro-Assem- 
bler, der das Schreiben von Maschinenpro¬ 
grammen fast so einfach macht wie das Pro¬ 
grammieren in BASIC. 

PROFIMAT in Stichworten: 

Registerinhalte und Flags anzeigen - Speicher¬ 
inhalte anzeigen - Maschinenprogramme 
laden, ausführen und speichern - Speicher¬ 
bereiche durchsuchen, vergleichen, füllen und 
verschieben - echter Einzelschrittmodus - Set¬ 
zen von unterbrechungspunkten - schneller 
Trace-Modus - Rückkehr zu BASIC - formatfreie 
Eingabe - Verkettung beliebig vieler Quellpro¬ 
gramme - erzeugter Objektcode kann in Spei¬ 
cher oder auf Diskette gehen - formatiertes 
Assemblerlisting - ladbare Symboltabellen - 
redefinierbare Symbole - Operatoren - Unter¬ 
stützung der Fließkommaarithmetik - be¬ 
dingte Assemblierung - Assemblerschleifen - 
MACROS mit beliebigen Parametern. 
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KONTOMAT ist ein menuegesteuertes Einnah¬ 
me-Überschußprogramm nach §4(3) EStG mit 
Kassenbuch, Bankkontenüberwachung, auto¬ 
matischer Steuerbuchung, AFA Tabellenerstel¬ 
lung, Kontenblättern, Ermittlung der USt-Vor- 
anmeldungswerte und Monats- und Jahres¬ 
abrechnung. Der neue KONTOMAT ist voll para- 
meterlsiert und läßt sich damit an Ihre Bedürf¬ 
nisse anpassen. Für alleGewerbetreibenden, die 
nicht laut HGB zur Buchführung verpflichtet 
sind. KONTOMAT ist für den gewerblichen Ein¬ 
satz, aber auch als Lernprogramm oder zur 
Haushaltsbuchführung geeignet. 
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KONTOMAT In StIchworten: 

Diskettenprogramm - maximal 120 Konten - 
Beträge mit bis zu evor- und 2 Nachkommastellen - 
4 Mehrwert- und Vorsteuersätze - intervallmäßige 
Belegeingabe - 4 Buchungsarten (SOLL, HABEN, 
SOLL/HABEN und"HABEN/S0LL) - Anzeige der Soll- 
und Habensumme bei mehrfachen Buchungssät¬ 
zen - komfortable Belegeingabe mit Datum, 
Buchungstext, Stuerkennzeichen und Betrag - 
Druck des Journals während der Belegeingabe - 
Druck von umfangreichen Kontenblättern - Druck 
einer Summen- und Saldenllste mit Monats- und 
Jahresumsatzsummen - betriebswirtschaftliche 
Auswertung mit Druckausgabe - Ermittlung und 
Druckausgabe der umsatzsteuerzahllast - Speiche¬ 
rung der Anlagegüter und automatische Abschrei¬ 
bung am Jahresende - übersichtliche AfA-Llste - 
arbeitet mit 1 oder 2 Laufwerken - umfangreiches 
deutsches Handbuch. 
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FAKTUMAT 

Mit FAKTUMAT Ist das Schreiben von Rechnun¬ 
gen kein Alptraum mehr. Eine Sofortfakturie¬ 
rung mit Integrierter Lagerbuchführung. Indi¬ 
viduelle Anpassung von Steuersätzen, Maßein¬ 
heiten und Firmendaten. Kunden- und Artikel¬ 
stamm voll pflegbar. Schneller Zugriff auf Kun¬ 
den- und Artikeldaten, über freidefinierbaren, 
b-stelllgen Schlüssel. Automatische Fortschrei¬ 
bung von Artikel- und Kundendaten, Individuell 
nutzbar. Alles In allem die Arbelts- und Zeit¬ 
ersparnis, die Sie sich schon Immer gewünscht 
haben. 

FAKTUMAT In StlChWOlten: 

voll menuegesteuert - läuft mit einer oder zwei 
Floppies - Diskettenwechsel (eine Floppy) nur 
beim Wechsel vom Hauptmenue Ins Unterpro¬ 
gramm und umgekehrt - mit Ausnahme des 
Ausschaltens der Floppy während der Verarbei¬ 
tung werden alle Fehler abgefangen (z. B. Druk- 
ker nicht eingeschaltet - arbeitet mit 1525,1526 
(?), MPS 801, EPSON Drucker und DATA BECKER 
Interface - voll parameterlsiert: Firmenkopf, 
MWSt, und Rabattsätze, Größe der Dateien belie¬ 
big wählbar - 5 Zellen für Firmenkopf je 30 
Zeichen (erste Zeile erscheint auf der Rechnung 
In Breitschrift - 4 Mehrwertsteuer-Sätze; wäh¬ 
rend der Rechnungsschreibung können also 
Artikel mit unterschiedlichem Mehrwert¬ 
steuer-Satz verrechnet werden - 10 Rabatt¬ 
sätze (Rabattsatz 1 vorbelegt mit 0%), bei der 
Rechnungsschreibung kann jedem Artikel ein 
Rabattsatz zugewiesen werden - maximal 1900 
Artikel bei 50 Kunden oder 950 Kunden bei 100 
Artikel (max. Artikel = Il000-Kundenh2: max. 
Kunden = i2000-Artlkell/2) - manuelle Eingabe 
von Artikeln und/oder Kunde während der 
Rechnungsschreibung - d.h. es können mehr 
Artikel verrechnet weden als überhaupt In die 
Datei passen (bei Verzicht auf Lagerbuchfüh¬ 
rung) bzw. es können Rechnungen an Kunden 
geschrieben werden, die nicht erfaßt wurden - 


integrierte Lagerbuchführung mit Ausgabe 
einer inventurliste - Rechnungsbeträge und 
Datum werden In der Kundendatei festgehal¬ 
ten - Druck von: Rechnung (mit Abbuchen aus 
Lager), Rechnung (ohne Abbuchen aus Lager), 
Lieferschein - deutsches detailliertes Hand¬ 
buch mit übungs- und Anwendungstell - 
deutsche Bedienerführung Innerhalb des Pro¬ 
gramms (z. B. .Artikel nicht vorhanden“ anstelle 
.RECORD NOT PRESENT“). 
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UNI-TAB 

Heute schon die Bundesliga-Tabelle von morgen 
kennen, das geht mit UNl-TAB. Alle Rechnereien, die 
man ohne dieses Programm nie machen würde, 
lassen sich In Sekundenschnelle durchführen. Wer 
will, kann mit simulierten Spielergebnissen den 
Weltmeister '86 vorausberechnen. Aber nicht nur 
Fußball-Ligen können tabellarisch erfaßt werden, 
fast alle Sportarten sind UNl-TAB-fähig. Gag am 
Rande: für viele Sportarten stehen die bekannten 
PIktogramme zur Verfügung. 

UNI-TAB In Stichworten: 

Menuesteuerung über die Funktionstasten mit 
leicht verständlichen Auswahlmöglichkelten - 
Bedienerfreundlich (Mannschaften werden über 
Kennzahlen gesteuert) - Ligen mit 4 bis 20 Mann¬ 
schaften können verwaltet werden (6 bis 38 Spiel¬ 
tage möglich) - unsinnige Ligen (z. B. 13 Mannschaf¬ 
ten sollen 5 Spieltage absolvieren) sind ausge¬ 
schlossen -favorisierte Mannschaft kann während 
des Programmablaufs durch reverse Darstellung 
gekennzeichnet werden - Tabelle kann geändert 
werden (wichtig bei Splelanulllerungen) - drei ver¬ 
schiedene Tabellenarten können abgespeichert 
und später eingelesen werden (die aktuelleTabelle 
[unabhängig von der Vollständigkeit eines Spiel¬ 
tages), der komplette Spieltag (Vollständigkeit und 
Nummer des Spieltages werden automatisch 
errechnet), die simulierte Tabelle [der Anwender 
kann so selbst Schicksal spielen und seinen Tip spä¬ 
ter mit dem tatsächlichen Geschehen verglei¬ 
chen)) - zwei verschiedene Arten der Saisonüber¬ 
sicht (die statistische Übersicht zeigt an, welchen 
Tabellenplatz das jeweilige Team bei welchem 
Punkte- und Torverhältnis an den einzelnen Spiel¬ 
tagen einnahm: die graphische Übersicht zeigt die 
Leistungskurve jeder Mannschaft) - alle Tabellen 
und Graphiken sind als Hardcopy auf einem Druk- 
ker darstellbar - bei Fehlbedienung (z.B. ge¬ 
wünschte Druckausgabe bei nicht eingeschalte¬ 
tem Drucker) erscheinen leicht verständliche 
deutsche Fehlermeldungen. 
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SUPERGRAFIK 64 

Entdecken Sie die faszinierende Welt der Com¬ 
putergraphik mit SUPERCRAFIK 64, der starken 
Befehiserweiterung mit den vielseitigen Mög¬ 
lichkeiten. Durch die neue verbesserte Version 
jetzt noch leistungsstärker. 

SUPERGRAFIK 64 In StIchworten: 

2 unabhängige Craphikseiten (320x200 Punkte) 
- logische Verknüpfung der beiden craphiksei¬ 
ten (AND, OR, EXOR) - 1 Standard Low-Craphik 
Seite (80x50 Punkte) - Normalfarben Graphik 
(300 X 200 Punkte) - Multicolor-Craphik (160 x 200 
Punkte) - verdecktes Zeichnen (z.B.Text sicht¬ 
bar, Graphikseite 2 wird erstellt) -Textfenster in 
der Graphik -183 Befehle und Befehlskomblna- 
tionen (l. Für Jeden Befehl wählbare Zwischen¬ 
modi: Zeichnen. Löschen, Punktieren, Graphik- 
Cursor bewegen, zeichnen mit/ohne Farbset- 
zung, Punkte zählen; 2. Durch einfache Befehle 
zu steuernde Graphikfiguren: Punkt, Linie, 
Linienschar, Linie vom Graphik-Cursor, Kreise, 
Kreisbögen. Ellipse, Elllpsenbögen, selbstdefi¬ 
nierbare Figuren, rotieren und vegrößern die¬ 
ser Figuren, Rahmen, Feld, Text in Graphik; 3. 
Weitere Graphikbefehle: Craphikseiten- und 
Moduswechsel, Graphik löschen, Graphik inver¬ 
tieren, Scrolling von Text und Graphik, Wählen 
der Rahmen-, Hintergrund-, Zeichen- oder 
Punktfarbe) - Speichern, Laden von Graphik 
(auch verdeckt) - Kopieren des Textbildschirms 
in die craphikseite - Hardcopies für EPSON, Sei- 
kosha CP100VC, Farb(!)drucker Seikosha CP700 
und andere mit DATA BECKER Interface - 16! 
Sprites gleichzeitig auf dem Bildschirm - alle 
Sprite-Eigenschaften veränderbar - Positionie¬ 
ren und Bewegen (!) von 16 Sprites gleichzeitig 
und unabhängig voneinander, während das 
übrige Programm weiterläuft (IRQ)-Sprite-Kol- 
lisionsüberprüfung, Joystickunterstützung - 
automatische Unterbrechung des BASIC-Pro- 
gramms bei Kollisionen (Interrupt), Sprung in 
Unterbrechungsroutine, dann Weiterführung 
des Hauptprogramms - komfortable Sound¬ 
programmierung mit Verstellung aller mög¬ 
lichen Sound-Parameter (Lautstärke, Klang, Fil¬ 
ter, Tonhöhe, Tonlänge), ebenfalls unabhängig 
vom übrigen Programmlauf-zahlreichen Pro¬ 
grammiertools (MERCE, RENUMBER usw.) - um¬ 
fangreiche Anleitung - Diskettenprogramm. 
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PASCAL 64 

Belm Wort .Compiler fällt dem Eingeweihten 
sicher der Begriff .Ceschwindigkeir ein. Ein 
PASCAL-Compiler sollte jedoch weitere Assozia¬ 
tionen wecken. Strukturiertes Programmieren 
heißt das Zauberwort. PASCAL wurde eigens zu 
didaktischen zwecken entwickelt und erfüllt 


diese Aufgabe auch heute noch. Der PASCAL 64 
Compiler bringt diese phantastische Program¬ 
miersprache auf den 64er. 

Gerade die neue, verbesserte Version unter¬ 
stützt die Möglichkeiten des C-64 in jeder Hin¬ 
sicht und macht leistungsfähige Programme 
möglich. 



PASCAL 64 In Stichworten: 

besitzt einen sehr umfangreichen Befehlsvor¬ 
rat - erlaubt Interruptprogrammierung und 
bietet Schnittstellen zu Monitor und Assembler 
- erzeugt sehr schnelle Programme in reinem 
Maschinencode - unterstützt relative Dateiver¬ 
waltung, Graphik und Sound - bietet die Daten¬ 
typen REAL, INTEGER, CHAR und BOOLEAN sowie 
Aufzähltypen und POINTER, die zu Datenstruk¬ 
turen RECORD, SET. ARRAY und PACKED ARRAY 
kombiniert werden können - erlaubt vorzeiti¬ 
gen Abschluß von Prozeduren mit EXIT, unein¬ 
geschränkte Rekursionen und komfortable Ver¬ 
arbeitung von Teilfeldern (Strings) - ist ein aus¬ 
gereiftes, deutsches Produkt und wird mit aus¬ 
führlichem Handbuch geliefert. 
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DISKOMAT 

Der Umgang mit Diskettenlaufwerken ist für 
viele noch immer mit Geheimnissen belastet. 
Andere stören sich an den wenig komfortablen 
Diskettenbefehlen des BASIC V2. DiSKOMAT 
bringt Abhilfe; alle Disketten befehle des BASIC 
4.0 stehen zur Verfügung. Außerdem können 
mit dem Programm SUPERTWIN zwei 1541-Lauf- 
werke wie ein Doppellaufwerk verwaltet wer¬ 
den. Für Benutzer, die sich die Fähigkeiten der 
Floppy 1541 ganz erschließen wollen, steht der 
DISK-MONITOR bereit; er macht es endlich mög¬ 
lich, den direkten Zugriff auf einzelne Blocks 
einfach und bequem vorzunehmen. 

DISKOMAT in Stichworten: 

Disketten Programm - DISK BASIC unterstützt 
Diskettenbefehle des BASIC 4.0 (CONCAT, 
HEADER, APPEND, RENAME, OPEN, COLLECT, 
DSAVE, SCRATCH, DCLOSE, BACKUP, DLOAD, DIREC¬ 
TORY, RECORD, COPY, CATALOG, DS & DS$) - SUPER 
TWIN behandelt 2 Laufwerke 1541 wie ein Dop¬ 
pellauf werk - DiSK-MONiTOR ermöglicht direkte 
Analyse und Manipulation von Disketten (direk¬ 
tes Lesen und Schreiben einzelner Blöcke, 
ändern von Blöcken mittels Bildschirm-Editor, 
Anzeige des Diskettenstatus, direktes Absen¬ 
den von Disketten-Befehlen) - ausführliches 
deutsches Handbuch beschreibt jeden einzel¬ 
nen der 3 Programm teile. 
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HAUSVERWALTUNG 

Jetzt können alle Hausbesitzer aufatmen: das Pro¬ 
gramm HAUSVERWALTUNG bietet ihnen eine sehr 
komfortable Verwaltung der Mietwohnungen mit 
dem COMMODORE 64. 

Alles, was Sie dazu brauchen, Ist ein commodore 64, 
ein Diskettenlaufwerk 1541, ein anschlußfähiger 
Drucker und das obengenannte Programm HAUS¬ 
VERWALTUNG. Die nachfolgenden und viele weitere 
leistungsfähige Features ermöglichen eineäußerst 
rationelle Verwaltung ihrer Mietwohnungen. 

HAUSVERWALTUNG In StlChWOIten: 

Dikettenprogramm -Verwaltung von 50 Einheiten 
pro Objekt möglich - Stammdatenverwaltung für 
Häuser und Mieter - verbuchen der Miete, Neben¬ 
kosten und Garagenmieten - Mietkontoanzeige - 
Haus- und Mieteraufstellung - Mahnungen - ver¬ 
buchen der anfallenden Kosten - Kostengegen¬ 
überstellung-Jahresendabrechnung mit automa¬ 
tischem Jahresübertrag - umfangreiches deut¬ 
sches Handbuch. 
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TRAININGSKURS ZU ADA 

Diese Programmlerspracheder Zukunft, diedas 
Pentagon in Auftrag gegeben hat, wird jetzt 
durch DATA BECKER auch dem C-64 Anwender 
zugänglich gemacht durch den TRAININGSKURS 
zu ADA, der eine sehr gute Einführung in diese 
Supersprache bietet. Der dazu gelieferte Com¬ 
piler liefert ein umfangreiches Subset der 
Sprache. 

ADA in Stichworten: 

blockstrukturierte Programme - modularer 
Aufbau der Programme - ermöglicht die 
Behandlung von Ausnahmezuständen - Fehler¬ 
überprüfung beim übersetzen und zur Laufzeit 
- ermöglicht das einfache Einbinden von 
Maschinenprogrammen - sehr leichtes Arbei¬ 
ten mit Programmbibliotheken - Programm¬ 
diskette enthält Editor, Übersetzer, Assembler 
und Disassembler - umfangreiches deutsches 
Handbuch. 
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DATAMAT 

Daten verwalten kann ein schier endloses Han¬ 
tieren mit Karteikästen und Aktenordnern 
bedeuten; kann aber auch C-64 plus DATAMAT 
heißen. Dann wird Suchen und Sortieren zum 
Spaß. Der DATAMAT bietet in seiner neuen Ver¬ 
sion einiges, was in dieser Preisklasse bisher 
unvorstellbar schien. Nicht nur Geschwindig¬ 
keit und Bedienungsfreundlichkeit wurden 
weiter verbessert, auch die Anpassung an die 
meisten Drucker ist inzwischen machbar. 

DATAMAT In StlcHworten: 

menuegesteuertes Diskettenprogramm, da¬ 
durch extrem einfach zu bedienen - für jede 
Art von Daten - völlig frei gestaltbare Eingabe¬ 
maske - 50 Felder pro Datensatz - 253 Zeichen 
pro Datensatz - bis zu 2000 Datensätze pro Datei 
je nach umfang - Schnittstelle zu TEXTOMAT - 
läuft mit 1 oder 2 Floppies - völlig in Maschinen¬ 
sprache - extrem schnell - deutscher Zeichen¬ 
satz auch auf COMMODORE-Druckern -fast jeder 
Drucker anschließbar - ausdrucken über RS 232 
- duplizieren der Datendiskette - verbesserte 
Benutzerführung - Hauptprogramm komplett 
im Speicher (kein Diskettenwechsel mehr) - 
integrierte Minitextverarbeitung - deutsches 
Handbuch mit übungslektionen 
Sie können: 

jeden Datensatz in 2 - 3 Sekunden suchen - nach 
beliebigen Feldern selektieren - nach allen Fel¬ 
dern gleichzeitig sortieren - Listen in völlig 
freiem Format drucken - Etiketten drucken. 



ZAHLUNGSVERKEHR 


umfangreicher Zahlungsverkehr kann zur 
Plage werden. Das Software-Paket ZAHLUNGS¬ 
VERKEHR übernimmt den größten Teil dieser 
Arbeit. Außer den notwendigen Fähigkeiten für 
das Ausfüllen und Auflisten von Überweisun¬ 
gen und Schecks ist der ZAHLUNGSVERKEHR In 
der Lage, Sammellisten, Einzugslisten etc. selb¬ 
ständig zusammenzustellen. 

ZAHLUNGSVERKEHR In StlcHworten: 

Diskettenprogramm - max. 100 Zahlungsemp¬ 
fänger pro Diskette - drei definierbare Absen¬ 
derbanken - 25 Zahlungsdateien -14 frei defi¬ 
nierbare Formulare - Kontrolldruck bei Beleg¬ 
eingabe möglich - Eingabe von Rechnungs¬ 
daten oder eines Verwendungszwecks - Aus¬ 
druck einer sammel-Überweisungsliste - Kor¬ 
rekturmöglichkeit der einzelnen Zahlungs¬ 
dateien - arbeitet mit einer oder zwei Floppies - 
umfangreiches deutsches Handbuch. 
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DAS STEHT DRIN: 

Dieses Buch ist für alle C-64-Anwender, die schon 
immer wissen wollten, wie ein Computer arbeitet. Hier 
wird am Beispiel der Entwicklung einer eigenen Spra¬ 
che gezeigt, wodurch Programme in die Lage versetzt 
werden, Programme aus einer Sprache in eine andere 
zu übersetzen. 

Aus dem Inhalt: 

- Was ist ein Compiler 

- Entwicklung einer eigenen Sprache 

- Lexikalische Analyse 

- Syntaktische Analyse 

- Semantische Analyse 

- Assembler des 6502 

- Das Betriebssystem des C-64 und vieles mehr 
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